anchor.diff:          (incf (sf-position stream)))))
     ;; Refill buffer.
     (with-connection (con (host stream))
  -    (format con "(:OPEN ~S :DIRECTION :INPUT)~%" (path stream))
  +    (buffered-format con "(:OPEN ~S :DIRECTION :INPUT)~%" (path stream))
       (let ((id (read-preserving-whitespace con)))
         (unless (integerp id)
           (error "Read error! ~S" id))
  -      (format con "(:READ ~D ~D ~D)~%" id (sf-position stream) (* 32 1024))
  +      (buffered-format con "(:READ ~D ~D ~D)~%" id (sf-position stream) (* 32 1024))
         (let ((count (read-preserving-whitespace con)))
           (unless (integerp count)
             (error "Read error! ~S" count))
  
positive.code:   (assert (eql (first (pathname-directory source)) :absolute) (source) "Absoute pathname required.")
    (assert (eql (first (pathname-directory dest)) :absolute) (dest) "Absoute pathname required.")
    (with-connection (con host)
      (format con "(:RENAME-FILE ~S ~S)~%"
              (unparse-simple-file-path source)
              (unparse-simple-file-path dest))
      (let ((x (read-preserving-whitespace con)))
  
negative.code:   (declare (ignore host))
    (assert (eql (first (pathname-directory path)) :absolute) (path) "Absoute pathname required.")
    (with-connection (con host)
      (buffered-format con "(:DELETE ~S)~%" (unparse-simple-file-path path))
      (let ((x (read-preserving-whitespace con)))
        (unless (eql x :ok)
          (error "Error: ~A ~S." path x))
  