           (current-window-configuration)))
   (let* ((cur-buf (current-buffer))
          (status-buf (get-buffer-create svn-status-buffer-name))
-         (proc-buf (get-buffer-create "*svn-process*"))
+         (proc-buf (get-buffer-create svn-process-buffer-name))
          (want-edit (eq arg '-))
          (status-option (if want-edit
                             (if svn-status-verbose "-v" "")

      ;; expects the output to be left in the *svn-process* buffer.
      (unless recursive
        ;; Check `directory-p' relative to the `default-directory' of the
        ;; "*svn-status*" buffer, not that of the "*svn-process*" buffer.
        (let ((directory-p (svn-status-line-info->directory-p line-info)))
          (with-current-buffer "*svn-process*"
            (when directory-p
              (goto-char (or beginning (point-min)))
              (when (re-search-forward "^Index: " nil t)

        (log-message))
    (svn-run nil t 'propget-parse "propget" "--revprop" (concat "-r" rev) "svn:log")
    (save-excursion
      (set-buffer svn-process-buffer-name)
      (setq log-message (if (> (point-max) 1)
                            (buffer-substring (point-min) (- (point-max) 1))
                          "")))
