anchor.diff:      (check-permission 'view paste)
       (dm:field paste "text")))
   
  -(define-page list "plaster/list(?:/(.*))?" (:uri-groups (page) :lquery "list.ctml")
  +(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))
  
positive.code:                         :page page
                          :has-more (<= (config :pastes-per-page) (length pastes))))))
  
  (profile:define-panel pastes (:user user :lquery "user-panel.ctml")
    (let ((pastes (dm:get 'plaster-pastes
                          (if (and (auth:current) (or (eql (auth:current) user)
                                                      (user:check (auth:current) '(perm plaster))))
  
negative.code:                       :page page
                        :has-more (<= (config :pastes-per-page) (length pastes)))))
  
  (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)))
  