anchor.diff:              (funcall (forms::upload-handler field) field)))
           ;; else, recover file info, if it is there
           (let ((file-info
  -               (cdr (assoc (format nil "~A.info" (forms::field-request-name field form)) parameters :test #'string=))))
  +                (cdr (assoc (format nil "~A.info" (forms::field-request-name field form)) parameters :test #'string=))))
             (when file-info
               (let ((finfo (read-from-string (base64:base64-string-to-string file-info))))
                 (setf (forms::file-path field) (getf finfo :path)
  
positive.code: 
  (defmethod field-read-from-request ((field file-form-field) form parameters)
    (let ((fvalue
           (cdr (assoc (field-request-name field form) parameters :test #'string=))))
      (if (and fvalue (listp fvalue))
          (destructuring-bind (path file-name content-type) fvalue
            (setf (file-path field) path)
  
negative.code: 
  (defmethod forms::field-read-from-request ((field stateful-file-field) form parameters)
    (let ((fvalue
            (cdr (assoc (forms::field-request-name field form) parameters :test #'string=))))
      (if (and fvalue (listp fvalue))
          ;; A file was uploaded
          (destructuring-bind (path file-name content-type) fvalue
  