   (if (eq arg 0)
       (setq svn-status-base-info nil)
     (let ((svn-process-buffer-name "*svn-info-output*"))
+      (when (get-buffer svn-process-buffer-name)
+        (kill-buffer svn-process-buffer-name))
       (svn-run nil t 'parse-info "info" ".")
       (svn-status-parse-info-result)))
   (unless (eq arg t)

  (unless (string= (buffer-name) svn-status-buffer-name)
    (set-buffer svn-status-buffer-name))
  (svn-status-mode)
  (let ((st-info svn-status-info)
        (buffer-read-only nil)
        (start-pos)

        if (listp item) nconc (svn-status-flatten-list item)
        else collect item))

(defun svn-status-completion-function ()
  (if svn-status-use-ido-completion 'ido-completing-read 'completing-read))

(defun svn-status-window-line-position (w)
  "Return the window line at point for window W, or nil if W is nil."
  (svn-status-message 3 "About to count lines; selected window is %s" (selected-window))
