diff --git a/tests/utils.lisp b/tests/utils.lisp
index bd6f722..18600e5 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 :apple))
+    (ok (fruit-p :appl))
     (ng (fruit-p :tomato))))