             (svn-status-line-info->set-filemark (car st-info)
                                                 svn-status-file-modified-after-save-flag)
             (save-window-excursion
-              (set-buffer "*svn-status*")
+              (set-buffer svn-status-buffer-name)
               (let ((buffer-read-only nil)
                     (pos (svn-status-get-file-name-buffer-position i-fname)))
                 (if pos

                      (delete-region (point-at-bol) (point-at-eol))
                      (svn-insert-line-in-status-buffer (car st-info))
                      (delete-char 1))
                  (message "psvn: file %s not found, updating *svn-status* buffer content..."
                           i-fname)
                  (svn-status-update-buffer)))))
          (setq st-info (cdr st-info))))))

             (when (get-buffer (car bl))
               (bury-buffer (car bl)))
             (setq bl (cdr bl)))
           (when (string= (buffer-name) svn-status-buffer-name)
             (bury-buffer))))))

(defun svn-status-find-files ()
