anchor.diff:                 (namestring dest))
         t
         (multiple-value-bind (source-dir source-cluster source-start) (open-file-metadata host source)
  -        (error 'simple-file-error
  -               :pathname source
  -               :format-control "File ~A does not exist. ~S"
  -               :format-arguments (list source (file-name source)))
  +        (when (null source-start)
  +          (error 'simple-file-error
  +                 :pathname source
  +                 :format-control "File ~A does not exist. ~S"
  +                 :format-arguments (list source (file-name source))))
           (multiple-value-bind (dest-dir dest-cluster dest-start) (open-file-metadata host dest)
             (let ((fat32 (fat-structure host))
                   (fat (fat host))
  
positive.code:                                 (equalp match-name name))
                              (or (eql match-type :wild)
                                  (equalp match-type type)))
                     (push (make-pathname :name name
                                          :type type
                                          :defaults pathname)
                           result))))
             result))
          ((eql (car dir-list) :wild)
           (let ((directory (pathname-directory pathname))
  
negative.code:         pathname)))
  
  (defun force-directory-only (pathname)
    (let ((name (pathname-name pathname))
          (type (pathname-type pathname)))
      (if name
          (let ((dir-name (if type
                              (concatenate 'string name "." type)
                              name)))
            (make-pathname :host (pathname-host pathname)
                           :device (pathname-device pathname)
                           :directory (append (pathname-directory pathname)
                                              (list dir-name))
                           :name NIL
                           :type NIL
                           :version NIL))
          pathname)))
  
  (defmethod probe-using-host ((host fat32-host) pathname)
    (let ((new-pathname (force-pathname-name pathname)))
  