           (save-excursion
             (set-buffer proc-buf)
             (unless (file-executable-p default-directory)
-              (message "psvn: workaround in %s needed, %s does no longer exist" (current-buffer) default-directory)
+              (message "psvn: workaround in %s needed: %s no longer exists" (current-buffer) default-directory)
               (cd (expand-file-name "~")))
             (setq buffer-read-only nil)
             (buffer-disable-undo)

  (if svn-status-base-info
      (cadr (assoc 'repository-root svn-status-base-info))
    ""))

(defun svn-status-ls (path &optional synchron)
  "Run svn ls PATH."

    (re-search-backward "^r\\([0-9]+\\)")
    (svn-match-string-no-properties 1)))

(defun svn-log-file-name-at-point (respect-checkout-prefix-path)
  (let ((full-file-name)
        (file-name)
        (checkout-prefix-path (when respect-checkout-prefix-path (svn-status-checkout-prefix-path))))
    (save-excursion
      (beginning-of-line)
      (when (looking-at "   [MA] /\\(.+\\)$")
        (setq full-file-name (svn-match-string-no-properties 1))))
    (when (string= checkout-prefix-path "")
      (setq checkout-prefix-path "/"))
    (setq file-name
          (if (eq (string-match (regexp-quote (substring checkout-prefix-path 1)) full-file-name) 0)
              (substring full-file-name (- (length checkout-prefix-path) (if (string= checkout-prefix-path "/") 1 0)))
            full-file-name))
    ;; (message "svn-log-file-name-at-point %s prefix: '%s', full-file-name: %s" file-name checkout-prefix-path full-file-name)
    file-name))

(defun svn-log-find-file-at-point ()
  (interactive)
  (let ((file-name (svn-log-file-name-at-point t)))
    (when file-name
      (let ((default-directory (svn-status-base-dir)))
        ;;(message "svn-log-file-name-at-point: %s, default-directory: %s" file-name default-directory)
        (find-file file-name)))))

(defun svn-log-view-diff (arg)
