diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el
index 52cc42791fa..7d348240ba4 100644
--- a/lisp/vc/vc-cvs.el
+++ b/lisp/vc/vc-cvs.el
@@ -1258,6 +1258,9 @@ ignore file."
         (if sort (sort-lines nil (point-min) (point-max)))
         (save-buffer)))))
 
+(defun vc-cvs-clone (remote directory)
+  (vc-cvs-command nil 0 '() "checkout" "-d" directory remote))
+
 (defvar-keymap vc-cvs-log-view-mode-map
   "N" #'log-view-file-next
   "P" #'log-view-file-prev