diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
index 05ce63a69d..f1db203a78 100644
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -4,42 +4,44 @@ USING: lisp lisp.parser tools.test sequences math kernel parser ;
 
 IN: lisp.test
 
-init-env
-
-"#f" [ f ] lisp-define 
-"#t" [ t ] lisp-define
-
-"+" "math" "+" define-primitve
-"-" "math" "-" define-primitve
-
-{ 5 } [
-  [ 2 3 ] "+" <lisp-symbol> funcall
-] unit-test
-
-{ 8.3 } [
- [ 10.4 2.1 ] "-" <lisp-symbol> funcall
-] unit-test
-
-{ 3 } [
-  "((lambda (x y) (+ x y)) 1 2)" lisp-string>factor call
-] unit-test
-
-{ 42 } [
-  "((lambda (x y z) (+ x (- y z))) 40 3 1)" lisp-string>factor call
-] unit-test
-
-{ 1 } [
-  "(if #t 1 2)" lisp-string>factor call
-] unit-test
-
-{ "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
+[
+    init-env
+    
+    "#f" [ f ] lisp-define 
+    "#t" [ t ] lisp-define
+    
+    "+" "math" "+" define-primitve
+    "-" "math" "-" define-primitve
+    
+    { 5 } [
+      [ 2 3 ] "+" <lisp-symbol> funcall
+    ] unit-test
+    
+    { 8.3 } [
+     [ 10.4 2.1 ] "-" <lisp-symbol> funcall
+    ] unit-test
+    
+    { 3 } [
+      "((lambda (x y) (+ x y)) 1 2)" lisp-string>factor call
+    ] unit-test
+    
+    { 42 } [
+      "((lambda (x y z) (+ x (- y z))) 40 3 1)" lisp-string>factor call
+    ] unit-test
+    
+    { 1 } [
+      "(if #t 1 2)" lisp-string>factor call
+    ] unit-test
+    
+    { "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
+] with-interactive-vocabs
\ No newline at end of file