anchor.diff:                          :page page
                           :has-more (<= (config :pastes-per-page) (length pastes))))))
   
  -(profile:define-panel pastes (:user user :lquery "user-panel.ctml")
  +(profile:define-panel pastes (:user user :clip "user-panel.ctml")
     (let ((pastes (dm:get 'plaster-pastes
                           (if (and (auth:current) (or (eql (auth:current) user)
                                                       (user:check (auth:current) '(perm plaster))))
  
positive.code:                       :page page
                        :has-more (<= (config :pastes-per-page) (length pastes)))))
  
  (define-page user "plaster/user/(.*)(?:/(.*))?" (:uri-groups (username page) :lquery "user.ctml")
    (check-permission 'user)
    (let* ((page (or (when page (parse-integer page :junk-allowed T)) 0))
           (user (user:get username)))
  
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)
  