diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
index a9d73cf97c..976cc930b4 100644
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -66,7 +66,7 @@ IN: lisp.test
     ] unit-test
 
     { T{ lisp-symbol f "begin" } } [
-        "(defmacro begin (&rest body) (list (list (quote lambda) (list) body)))" lisp-eval
+        "(defmacro begin (&rest body) (list (cons (quote lambda) (cons (list) body))))" lisp-eval
     ] unit-test
     
     { t } [