   (let ((status-buf (create-file-buffer (concat dir "*svn*")))
         (inhibit-read-only t))
     (with-current-buffer status-buf
+      (setq default-directory dir)
       (svn-status-mode)
 
       (make-local-variable 'svn-url-label)

    proc))

(defun svn-check-running ()
  (when (and svn-running
             (eq (process-status (cadr svn-running)) 'run))
    (error "Can't run two svn processes from the same buffer")))

(defun svn-run-async (command args &optional file-filter)

        (dir default-directory)
        (inhibit-read-only t))
    (display-buffer diff-buf)
    (with-current-buffer diff-buf
      (diff-mode)
      (setq buffer-read-only t)
      (erase-buffer)
