diff --git a/module/language/elisp/runtime/subrs.scm b/module/language/elisp/runtime/subrs.scm
index b03a510a1..b372d82a1 100644
--- a/module/language/elisp/runtime/subrs.scm
+++ b/module/language/elisp/runtime/subrs.scm
@@ -144,7 +144,7 @@
   (lambda (el)
     (elisp-bool (pair? el))))
 
-(built-in-func atomp
+(built-in-func atom
   (lambda (el)
     (elisp-bool (prim not (pair? el)))))
 
diff --git a/test-suite/tests/elisp-compiler.test b/test-suite/tests/elisp-compiler.test
index 230dc772d..869950389 100644
--- a/test-suite/tests/elisp-compiler.test
+++ b/test-suite/tests/elisp-compiler.test
@@ -607,11 +607,11 @@
 
 (with-test-prefix/compile "List Built-Ins"
 
-  (pass-if "consp and atomp"
+  (pass-if "consp and atom"
     (and (consp '(1 2 3)) (consp '(1 2 . 3)) (consp '(a . b))
          (not (consp '())) (not (consp 1)) (not (consp "abc"))
-         (atomp 'a) (atomp '()) (atomp -1.5) (atomp "abc")
-         (not (atomp '(1 . 2))) (not (atomp '(1)))))
+         (atom 'a) (atom '()) (atom -1.5) (atom "abc")
+         (not (atom '(1 . 2))) (not (atom '(1)))))
   (pass-if "listp and nlistp"
     (and (listp '(1 2 3)) (listp '(1)) (listp '()) (listp '(1 . 2))
          (not (listp 'a)) (not (listp 42)) (nlistp 42)