                     (if svn-status-head-revision (format " (head revision: %s)"
                                                          svn-status-head-revision)
                       "")))
+    (when svn-status-base-info
+      (insert (concat "Repository: " (svn-status-base-info->url) "\n")))
     (when svn-status-hide-unknown
       (insert
        (format "%d Unknown files are hidden - press ? to toggle hiding\n"

(defun svn-process-sentinel (process event)
  ;(princ (format "Process: %s had the event `%s'" process event)))
  ;(save-excursion
    (set-buffer (process-buffer process))
    (setq svn-status-mode-line-process-status "")
    (svn-status-update-mode-line)

          (goto-char (+ column (point-at-bol))))
      (goto-char (+ (next-overlay-change (point-min)) svn-status-default-column)))))

(defun svn-status-parse-info ()
  (svn-run-svn t t 'parse-info "info" "."))

(defun svn-status-parse-info-result ()
  (let ((url))
    (save-excursion
      (set-buffer "*svn-process*")
      (goto-char (point-min))
      (search-forward "Url: ")
      (setq url (buffer-substring-no-properties (point) (point-at-eol))))
    (setq svn-status-base-info `((url ,url))))
  (message "%S" (svn-status-base-info->url)))

(defun svn-status-base-info->url ()
  (if svn-status-base-info
      (cadr (assoc 'url svn-status-base-info))
    ""))

(defun svn-status-toggle-edit-cmd-flag (&optional reset)
  (interactive)
  (cond ((or reset (eq svn-status-edit-svn-command 'sticky))
