diff --git a/vc-p4.el b/vc-p4.el
index 5215b49..b3b78ee 100644
--- a/vc-p4.el
+++ b/vc-p4.el
@@ -174,7 +174,7 @@ compare non-open files to the depot version."
           (vc-file-setprop file 'vc-workfile-version haveRev)
           state)))))
 
-(defun vc-p4-dir-status (dir update-function)
+(defun vc-p4-dir-status-files (dir files update-function)
   "Find information for `vc-dir'."
   ;; XXX: this should be asynchronous.
   (let ((lists (p4-lowlevel-fstat