anchor.diff:    `(call-with-password-protection
       (lambda () ,@body) ,paste ,password))
   
  -(define-page edit "plaster/edit(?:/(.*))?" (:uri-groups (id) :lquery "edit.ctml")
  +(define-page edit "plaster/edit(?:/(.*))?" (:uri-groups (id) :clip "edit.ctml")
     (let* ((paste (if id
                       (ensure-paste id)
                       (dm:hull 'plaster-pastes)))
  
positive.code:                         :error (get-var "error")
                          :message (get-var "message")))))
  
  (define-page view "plaster/view/(.*)" (:uri-groups (id) :lquery "view.ctml")
    (let* ((paste (ensure-paste id))
           (parent (paste-parent paste)))
      (check-permission 'view paste)
  
negative.code:     (check-permission 'view paste)
      (dm:field paste "text")))
  
  (define-page list "plaster/list(?:/(.*))?" (:uri-groups (page) :clip "list.ctml")
    (check-permission 'list)
    (let* ((page (or (when page (parse-integer page :junk-allowed T)) 0))
           (pastes (dm:get 'plaster-pastes (db:query (:= 'visibility 1))
  