anchor.diff:  
   (defun page-links-for-paste-list (page highest-page channel)
     (let ((base-url (if channel
  -		      (append-url *list-paste-url*
  +		      (merge-url *list-paste-url*
   				  (format nil "/~A"
   					  (if (char= #\# (char channel 0))
   					      (subseq channel 1)
   					      channel)))
   		      *list-paste-url*)))
       (flet ((page-url (i)
  -	     (urlstring (merge-url base-url (format nil "?~A" i)))))
  +	     (merge-url base-url (format nil "?~A" i))))
         ;; XXX: Must we loop over all pages or is there a better way?
         (loop for i from 0 to highest-page
   	    for should-collect = (or (zerop i)
  
positive.code:       (concatenate 'string (subseq str 0 (1- n)) "...")
      str))
  
  (defmethod handle-request-response ((handler syndication-handler) method request)
    
    (xml-output-to-stream
     (request-stream request)
     (lisppaste-wrap-page
      "Syndication options"
      "Lisppaste can be syndicated in a variety of RSS formats for use
  
negative.code:      (request-stream request)
       (<html> (<body> (<h1> "Redirected"))))
      t))
  