          (default-directory (svn-status-base-dir))
          (upper-rev-file-name (when file-name
                                 (cdar (svn-status-get-specific-revision-internal
-                                       (list (svn-status-make-line-info file-name)) upper-rev))))
+                                       (list (svn-status-make-line-info file-name)) upper-rev nil))))
          (lower-rev-file-name (when file-name
                                 (cdar (svn-status-get-specific-revision-internal
-                                       (list (svn-status-make-line-info file-name)) lower-rev)))))
+                                       (list (svn-status-make-line-info file-name)) lower-rev nil)))))
     ;;(message "%S %S" upper-rev-file-name lower-rev-file-name)
     (if file-name
         (let* ((ediff-after-quit-destination-buffer cur-buf)

  (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))))

(defun svn-log-ediff-specific-revision ()
  "Call ediff for the file at point to view a changeset"

             ;; and if users often want to know the revision numbers of such
             ;; files, they can use svn:keywords.
             (file-name-with-revision (concat (file-name-nondirectory file-name) ".~" revision "~"))
             (default-directory (concat (svn-status-base-dir)
                                        (if handle-relative-svn-status-dir
                                            (file-relative-name default-directory (svn-status-base-dir))
                                          "")
                                        (file-name-directory file-name))))
        ;; `add-to-list' would unnecessarily check for duplicates.
        (push (cons file-name (concat (file-name-directory file-name) file-name-with-revision))
              svn-status-get-specific-revision-file-info)
        (svn-status-message 3 "svn-status-get-specific-revision-internal: file: %s, default-directory: %s"
                            file-name default-directory)
        (svn-status-message 3 "svn-status-get-specific-revision-internal: file-name-with-revision: %s %S"
                            file-name-with-revision (file-exists-p file-name-with-revision))
        (save-excursion
          (if (or (not (file-exists-p file-name-with-revision)) ;; file does not exist
                  (not (string= (number-to-string (string-to-number revision)) revision))) ;; revision is not a number
              (progn
                (message "Getting revision %s of %s, target: %s" revision file-name
                         (expand-file-name(concat default-directory file-name-with-revision)))
                (let ((content
                       (with-temp-buffer
                         (if (string= revision "BASE")
