diff --git a/site-lisp/db-projects.el b/site-lisp/db-projects.el
index 99a6143..e5a128c 100644
--- a/site-lisp/db-projects.el
+++ b/site-lisp/db-projects.el
@@ -55,7 +55,7 @@
   "Archive existing project."
   (interactive (list
                 (completing-read "Short Name: " (projects-existing-projects) nil t)))
-  (unless (projects/project-exists-p short-name)
+  (unless (projects-project-exists-p short-name)
     (user-error "Project %s does not exist, exiting" short-name))
   (unless (file-exists-p projects-archive-directory)
     (make-directory projects-archive-directory))