     (goto-char (point-min))
     (insert (format "svn status for directory %s%s\n"
                     default-directory
-                    (if svn-status-head-revision
-                        (format " (head revision: %s)" svn-status-head-revision)
+                    (if svn-status-head-revision (format " (status against revision: %s)"
+                                                         svn-status-head-revision)
                       "")))
     (when svn-status-base-info
       (insert (concat "Repository: " (svn-status-base-info->url) "\n")))

      (message "No file on previous line - cannot unset a mark"))))

(defun svn-status-apply-usermark (set-mark only-this-line)
  (let* ((st-info svn-status-info)
         (line-info (svn-status-get-line-information))
         (file-name (svn-status-line-info->filename line-info))


(defun svn-status-unset-user-mark (arg)
  "Remove a user mark on the current file or directory.
If the cursor is on a file, this file is unmarked and the cursor advances to the next line.
If the cursor is on a directory, all files in this directory are unmarked.

If this function is called with a prefix argument, only the actual line is
unmarked, even if is a directory."
  (interactive "P")
  (let ((info (svn-status-get-line-information)))
    (if info
