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: (defclass stats-handler (lisppaste-basic-handler) ())
  
  (defclass email-redirect-handler (lisppaste-basic-handler) ())
  
  (defclass channel-select-handler (lisppaste-basic-handler) ())
  
  (defclass 404-handler (handler) ())
  
  
negative.code: 				     "None"
  				     (subseq channel 1)))))
  
  (define-easy-handler (channelselect :uri *channel-select-url*) ()
    (xml-to-string
     (lisppaste-wrap-page
      (format nil "~A channel list" *paste-site-name*)
      (<table width="100%" border="0" cellpadding="2">
  