anchor.diff:  			:pathname pathname
   			:directory-p (and (cl-fad:directory-pathname-p pathname)
   					  (cl-fad:directory-exists-p pathname)
  -					  t))))
  +					  t)
  +			:info (nefarious.finfo:get-file-information pathname))))
       handle))
   
   ;; --------------------
  
positive.code: 
  (defmethod nfs-provider-remove ((provider simple-provider) dhandle name)
    "Remove the file named HANDLE."
    (let ((dhandle (find-handle provider dhandle)))
      (if dhandle	
  	(remove-file provider dhandle name)	  
  	(error 'nfs-error :stat :bad-handle))))
  
  (defmethod nfs-provider-rename ((provider simple-provider) fdh fname tdh tname)
    "Rename the file named by the FROM-DHANDLE/FROM-NAME."
  
negative.code: (defmethod nfs-provider-write ((provider simple-provider) fh offset bytes)
    "Write bytes at offset to the object. Returns the number of bytes written."
    (let ((handle (find-handle provider fh)))
      (cond
        (handle
         (multiple-value-prog1 (write-file handle offset bytes)
  	 ;; update the cached file information
  	 (setf (handle-info handle)
  	       (nefarious.finfo:get-file-information (handle-pathname handle)))))
        (t 
         (error 'nfs-error :stat :bad-handle)))))
  
  (defmethod nfs-provider-create ((provider simple-provider) dh name)
    "Create a new file named NAME in directory DHANDLE."
  