anchor.diff:      (when +make-canonical+
         (setf raw-links
   	    (mapcar (lambda (x)
  -		      ;;(format t "c: [~A] [~A]~%" x (current-link agent))
  -		      (make-canonical x :relative-to (current-link agent)))
  +		      ;;(format t "c: [~A] [~A]~%" x (current-url agent))
  +		      (make-canonical x :relative-to (current-url agent)))
   		    raw-links)))
       ;; ;; Optionally remove the fragment before processing. 
       ;; (when +clean-links+
  
positive.code: (defmethod submit ((agent agent) (form form))
    "Much the same as fetch, but with a form as the action base."
    ;; Get the things I want out of the agent before purging.
    (let ((old-link (current-link agent))
  	(action (action form))
  	(verb (verb form))
  	(parameters (to-drakma-parameters form))) ; to be used as drakma's
      (purge agent) ; Clean out old stuff.
      ;;; Straighten links.
      (setf (current-link agent) (make-canonical action :relative-to old-link))
      ;; Run.
      (with-fetch-attempt agent +agent-timeout+
        (http-request
         (current-link agent)
         ;; Verbs need to be either :POST or :GET
         :method (if (or (eq verb :POST) (string-equal verb "POST")) :POST :GET)
         :redirect 100
  
negative.code:    ;; form # TODO
     ;; Agent slots.
     user-agent
     current-url
     errors
     content
     code
  