 
 (defun svn-process-filter (process str)
   (save-window-excursion
-    (set-buffer "*svn-process*")
+    (set-buffer svn-process-buffer-name)
     ;;(message "svn-process-filter: %s" str)
     (goto-char (point-max))
     (insert str)

          (svn-marks-length (if (and svn-status-verbose svn-status-remote)
                                8 6))
          (dir-set '(".")))
      (set-buffer "*svn-process*")
      (setq svn-status-info nil)
      (goto-char (point-min))
      (while (< (point) (point-max))

  "Parse the output of svn update.
Return a list that is suitable for `svn-status-update-with-command-list'"
  (save-excursion
    (set-buffer svn-process-buffer-name)
    (let ((action)
          (name)
          (skip)
