1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el
index 9675c364bb7..46f55358de8 100644
--- a/lisp/vc/vc-hooks.el
+++ b/lisp/vc/vc-hooks.el
@@ -302,7 +302,7 @@ non-nil if FILE exists and its contents were successfully inserted."
 (declare-function project-try-vc "project")
 (defun vc-known-roots ()
   "Return a list of known vc roots."
-  (seq-filter #'project-try-vc (mapcar #'car (project-known-roots))))
+  (seq-filter #'project-try-vc (project-known-project-roots)))
 
 (defun vc-find-root (file witness)
   "Find the root of a checked out project.