anchor.diff:  
   (defun parse-new-paste-channel ()
     (ppcre:register-groups-bind (channel)
  -      (#.(format nil "~a/(\.+)" *new-paste-url*) (script-name*))
  +      (#.(format nil "^~a/(\.+)" *new-paste-url*) (script-name*))
       channel))
   
   (define-easy-handler (new-paste :uri (match-prefix *new-paste-url*))
  
positive.code: 
  (defun parse-paste-number (script-name)
    (ppcre:register-groups-bind (integer)
        (#.(format nil "~a(\\d+)" *display-paste-url*) script-name)
      (quick-parse-junk-integer integer)))
  
  (define-easy-handler (display :uri (match-prefix *display-paste-url*))
      (colorize linenumbers type)
  
negative.code: 	(lisppaste-wrap-page
  	 (format nil "Invalid paste number ~A!" paste-number)))))))
  
  (defun parse-short-paste-number (script-name)
    (ppcre:register-groups-bind (paste annotation)
        ("^/\\+/(\\w+)/?(\\w*)" script-name)
      (values
       (parse-integer paste :junk-allowed t :radix 36)
       (and annotation
            (parse-integer annotation :junk-allowed t :radix 36)))))
  
  (define-easy-handler (short-paste :uri (match-prefix *short-paste-url*)) ()
    (multiple-value-bind (paste-number annotation)
        (parse-short-paste-number (script-name*))
      (let* ((paste (find-paste paste-number))
             (url (and paste
                       (format nil "~a~@[#~A~]" (paste-display-url paste) annotation))))
        (cond
          (paste
           (redirect url))
          (t
           (setf (return-code*) 404)
           (xml-to-string
            (lisppaste-wrap-page
             (format nil "Invalid paste number ~A!" paste-number))))))))
  
  (defmethod handle-request-response ((handler email-redirect-handler) method request)
    (let ((email-url (concatenate 'string "mailto:" *owner-email* "?subject=")))
  