   (let ((default-directory (svn-status-base-dir)))
     (svn-status-get-specific-revision-internal
      (list (svn-status-make-line-info (svn-log-file-name-at-point nil)))
-     (svn-log-revision-at-point))))
+     (svn-log-revision-at-point)
+     nil)))
 
 (defun svn-log-ediff-specific-revision ()
   "Call ediff for the file at point to view a changeset"

                   (svn-status-base-dir))
                  nil nil nil nil nil nil
                  (svn-status-line-info->update-available (svn-status-get-line-information))))
           (if arg :ask :auto)))
         (ediff-after-quit-destination-buffer (current-buffer))
         (default-directory (svn-status-base-dir))
         (my-buffer (find-file-noselect (caar svn-status-get-specific-revision-file-info)))

With a prefix argument: get only the actual file."
  (interactive "P")
  (svn-status-get-specific-revision-internal
   (svn-status-get-file-list (not arg)) :ask t))

(defun svn-status-get-specific-revision-internal (line-infos revision handle-relative-svn-status-dir)
  "Retrieve older revisions of files.
LINE-INFOS is a list of line-info structures (see
`svn-status-get-line-information').
