   (interactive)
   (let ((window-conf (current-window-configuration))
         (version-string))
-    (if (interactive-p)
+    (if (or (interactive-p) (not svn-status-cached-version-string))
         (progn
           (svn-run nil t 'version "--version")
           (svn-status-show-process-output 'info t)

                ;; `call-process' ignores `process-connection-type' and
                ;; never opens a pseudoterminal.
                (apply 'call-process svn-exe nil proc-buf nil arglist))
              (run-hooks 'svn-post-process-svn-output-hook)
              (setq svn-status-mode-line-process-status "")
              (svn-status-update-mode-line)

(defun svn-prepare-bug-report ()
  "Create the buffer *psvn-bug-report*. This buffer can be useful to debug problems with psvn.el"
  (interactive)
  (let* ((last-output-buffer-name (or svn-status-last-output-buffer-name "*svn-process*"))
         (last-svn-cmd-output (with-current-buffer last-output-buffer-name
                                (buffer-substring-no-properties (point-min) (point-max)))))
    (switch-to-buffer "*psvn-bug-report*")
    (delete-region (point-min) (point-max))
    (insert "This buffer holds some debug informations for psvn.el\n")
    (insert "Please enter a description of the observed and the wanted behaviour\n")
    (insert "and send it to the author (stefan@xsteve.at) to allow easier debugging\n\n")
    (insert "Revisions:\n")
    (svn-insert-indented-lines (svn-status-version))
    (insert "\nLast svn commands:\n")
