anchor.diff:                ((consp (post-parameter "file"))
                  (apply 'create-file-url (post-parameter "file"))))))
       (if id
  -        (format nil "~A~A"
  -                (url acceptor)
  -                id)
  -        "Failed.")))
  +        (respond 200
  +                 (format nil "~A~A"
  +                         (url acceptor)
  +                         id))
  +        (respond 400 "Failed."))))
   
   (defmethod acceptor-dispatch-request ((acceptor linkbox-acceptor) request)
     (cond
  
positive.code:        (destructuring-bind (&optional type target)
             (target name)
           (if (and type target)
               (case type
                 (:file (prog1 t
                          (handle-static-file
                           (merge-pathnames target (path acceptor)))))
                 (:url (prog1 t
                         (redirect target :code +http-see-other+))))))))
      (t (setf (return-code*) +http-not-found+))))
  
  ;;; Convenience ----------------------------------------------------------------
  
  
negative.code: 
  ;;; Handling requests ----------------------------------------------------------
  
  (defun respond (http-code body)
    (prog1 body
      (setf (return-code*) http-code)))
  
  (defun handle-create (&optional (acceptor *acceptor*))
    (let ((id (cond
                ((stringp (post-parameter "url"))
  