diff --git a/tests/utils.lisp b/tests/utils.lisp
index 18600e5..bd6f722 100644
--- a/tests/utils.lisp
+++ b/tests/utils.lisp
@@ -26,5 +26,5 @@
                      (gethash keyword *fruit*)))))
     (ok (hash-table-p *fruit*))
     (ok (fboundp 'fruit-p))
-    (ok (fruit-p :appl))
+    (ok (fruit-p :apple))
     (ng (fruit-p :tomato))))