diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
index fd6e2d93ae..05ce63a69d 100644
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -34,4 +34,12 @@ init-env
 
 { "b" } [
   "(cond (#f \"a\") (#t \"b\"))" lisp-string>factor call
+] unit-test
+
+{ 5 } [
+  "(begin (+ 1 4))" lisp-string>factor call
+] unit-test
+
+{ 3 } [
+   "((lambda (x) (if x (begin (+ 1 2)) (- 3 5))) #t)" lisp-string>factor call
 ] unit-test
\ No newline at end of file