anchor.diff:          (x nil)
           (created-file nil))
       (with-connection (con host)
  -      (format con "(:PROBE ~S)~%" path)
  +      (buffered-format con "(:PROBE ~S)~%" path)
         (setf x (read-preserving-whitespace con))
         (when (listp x)
           (ecase if-does-not-exist
  
positive.code: (defmethod sys.int::stream-set-file-position ((stream simple-file-stream) new-position)
    (when (eql new-position :end)
      (with-connection (con (host stream))
        (format con "(:OPEN ~S :DIRECTION :INPUT)~%" (path stream))
        (let ((id (read-preserving-whitespace con)))
          (unless (integerp id)
            (error "Read error! ~S" id))
          (format con "(:SIZE ~D)~%" id)
          (let ((file-size (read-preserving-whitespace con)))
            (unless (integerp file-size)
              (error "Read error! ~S" file-size))
  
negative.code:   (declare (ignore host))
    (assert (eql (first (pathname-directory path)) :absolute) (path) "Absoute pathname required.")
    (with-connection (con host)
      (buffered-format con "(:FILE-WRITE-DATE ~S)~%" (unparse-simple-file-path path))
      (let ((x (read-preserving-whitespace con)))
        (unless (or (integerp x) (null x))
          (error "Error: ~A ~S." path x))
  