diff --git a/vc-p4.el b/vc-p4.el
index b0fe7a8..25e18ee 100644
--- a/vc-p4.el
+++ b/vc-p4.el
@@ -1023,7 +1023,8 @@ documentation for that command for their meanings."
 
 (defun vc-p4-dir-extra-headers (dir)
   "Get extra Perforce-specific vc-dir headers related to DIR."
-  (let ((extra-info (p4-lowlevel-info)))
+  (let* ((default-directory dir)
+         (extra-info (p4-lowlevel-info)))
     (concat
      (propertize "Client     :" 'face 'font-lock-type-face)
      " "