anchor.diff:                        :page page
                         :has-more (<= (config :pastes-per-page) (length pastes)))))
   
  -(define-page user "plaster/user/(.*)(?:/(.*))?" (:uri-groups (username page) :lquery "user.ctml")
  +(define-page user "plaster/user/(.*)(?:/(.*))?" (:uri-groups (username page) :clip "user.ctml")
     (check-permission 'user)
     (let* ((page (or (when page (parse-integer page :junk-allowed T)) 0))
            (user (user:get username)))
  
positive.code:   `(call-with-password-protection
      (lambda () ,@body) ,paste ,password))
  
  (define-page edit "plaster/edit(?:/(.*))?" (:uri-groups (id) :lquery "edit.ctml")
    (let* ((paste (if id
                      (ensure-paste id)
                      (dm:hull 'plaster-pastes)))
  
negative.code:                         :error (get-var "error")
                          :message (get-var "message")))))
  
  (define-page view "plaster/view/(.*)" (:uri-groups (id) :clip "view.ctml")
    (let* ((paste (ensure-paste id))
           (parent (paste-parent paste)))
      (check-permission 'view paste)
  