diff --git a/dvc/lisp/xhg-annotate.el b/dvc/lisp/xhg-annotate.el
index 2901556..18d0bda 100644
--- a/dvc/lisp/xhg-annotate.el
+++ b/dvc/lisp/xhg-annotate.el
@@ -93,7 +93,7 @@ Special commands:
   "Show `xhg-log' corresponding to current line in `xhg-annotate' buffer."
   (interactive)
   (let ((rev-number (xhg-annotate-get-rev-num-on-line))
-        (fname xhg-annotate-current-buffer))
+        (fname (buffer-file-name xhg-annotate-current-buffer)))
     (save-excursion
       (xhg-log rev-number rev-number t fname)
       (other-window 1))))
diff --git a/dvc/lisp/xhg.el b/dvc/lisp/xhg.el
index 0b62981..868e8ac 100644
--- a/dvc/lisp/xhg.el
+++ b/dvc/lisp/xhg.el
@@ -327,11 +327,15 @@ negative : Don't show patches, limit to n revisions."
       (setq command-list (append command-list (list "-p"))))
     ;; be verbose or not
     (setq xhg-log-remember-last-args command-list)
-    (setq xhg-log-remember-func-args (list r1 r2 show-patch file))
     (if (and xhg-log-remember-last-args
              xhg-log-verbose)
         (setq command-list (append '("-v") xhg-log-remember-last-args))
         (setq command-list xhg-log-remember-last-args))
+
+    (setf file (expand-file-name (or file (buffer-file-name) default-directory)))
+    (setq command-list (append command-list (list file)))
+    (setq xhg-log-remember-func-args (list r1 r2 show-patch file))
+
     (dvc-switch-to-buffer-maybe buffer)
     (let ((inhibit-read-only t))
       (erase-buffer))