   (save-excursion
     (set-buffer svn-process-buffer-name)
     (let ((action)
-          (name)
+          (file-name)
           (skip)
           (result))
       (goto-char (point-min))

            ;; when the commit used . as argument, delete the trailing directory
            ;; from the svn output
            (search-forward "/" nil t))
          (setq name (buffer-substring-no-properties (point) (svn-point-at-eol)))
          (setq result (cons (list name action)
                             result))
          (setq skip nil))
        (forward-line 1))

               svn-status-commit-rev-number)
      (svn-status-line-info->set-localrev line-info svn-status-commit-rev-number)
      (svn-status-line-info->set-lastchangerev line-info svn-status-commit-rev-number))
    (when svn-status-last-commit-author
      (svn-status-line-info->set-author line-info svn-status-last-commit-author))
    (cond ((equal action 'committed)
           (setq tag-string " <committed>")
           (when (member (svn-status-line-info->repo-locked line-info) '(?K))
