   (let ((url)
         (repository-root))
     (save-excursion
-      (set-buffer "*svn-process*")
+      (set-buffer svn-process-buffer-name)
       (goto-char (point-min))
       (let ((case-fold-search t))
         (search-forward "url: ")

         (when svn-status-initial-window-configuration
           (set-window-configuration svn-status-initial-window-configuration)))
        (t
         (let ((bl '("*svn-log-edit*" "*svn-property-edit*" "*svn-log*" "*svn-process*")))
           (while bl
             (when (get-buffer (car bl))
               (bury-buffer (car bl)))

    (message "Edit property %s for file %s" prop-name file-name)
    (svn-run nil t 'propget-parse "propget" prop-name file-name)
    (save-excursion
      (set-buffer svn-process-buffer-name)
      (setq prop-value (if (> (point-max) 1)
                           (buffer-substring (point-min) (- (point-max) 1))
                         "")))
