diff --git a/src/db.lisp b/src/db.lisp
index 1a008a3..ea85786 100644
--- a/src/db.lisp
+++ b/src/db.lisp
@@ -529,12 +529,12 @@ to the corresponding id in table +table-account+"
 (defun user-exists-p (username)
   (acct->user username))
 
-(defun id->user (id)
+(defun user-id->user (id)
   (fetch-from-id :account id))
 
 (defun user-id->username (user-id)
   "username or acct are synonyms"
-  (when-let ((user (id->user user-id)))
+  (when-let ((user (user-id->user user-id)))
     (db-getf user :acct)))
 
 (defun insert-in-history (prompt input)
diff --git a/src/package.lisp b/src/package.lisp
index e666fef..e6a853f 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -727,7 +727,7 @@
    :acct->id
    :username->id
    :user-exists-p
-   :id->user
+   :user-id->user
    :user-id->username
    :insert-in-history
    :previous-in-history