          (line-info (svn-status-get-line-information))
          (file-name (svn-status-line-info->filename line-info))
          (newcursorpos-fname)
-         (i-fname))
+         (i-fname)
+         (current-line svn-start-of-file-list-line-number))
     (while st-info
+      (setq current-line (1+ current-line))
       (setq i-fname (svn-status-line-info->filename (car st-info)))
       (when (and (>= (length i-fname) (length file-name))
                  (string= file-name (substring i-fname 0 (length file-name))))

(defvar svn-status-default-author-width 9)
(defvar svn-status-line-format " %c%c %4s %4s %-9s")
(defvar svn-status-short-mod-flag-p t)
(defvar svn-status-files-to-commit nil)
(defvar svn-status-pre-commit-window-configuration nil)
(defvar svn-status-pre-propedit-window-configuration nil)

       (format "%d Unmodified files are hidden - press _ to toggle hiding\n"
               unmodified-count)))
    (insert (format "%d files marked\n" marked-count))
    (setq svn-start-of-file-list-line-number (+ (count-lines (point-min) (point)) 1))
    (if fname
        (progn
          (svn-status-goto-file-name fname)
