diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
index 7e51008ea0..8946575300 100644
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -8,11 +8,13 @@ IN: lisp.test
 [
     init-env
     
-    [ f ] "#f" lisp-define
-    [ t ] "#t" lisp-define
+    f "#f" lisp-define
+    t "#t" lisp-define
     
     "+" "math" "+" define-primitive
     "-" "math" "-" define-primitive
+    "<" "math" "<" define-primitive
+    ">" "math" ">" define-primitive
     
     "cons" "lists" "cons" define-primitive
     "car" "lists" "car" define-primitive
@@ -49,6 +51,10 @@ IN: lisp.test
       "(cond (#f \"a\") (#t \"b\"))" lisp-eval
     ] unit-test
     
+    { "b" } [
+      "(cond ((< 1 2) \"b\") (#t \"a\"))" lisp-eval
+    ] unit-test
+    
     { 5 } [
       "(begin (+ 1 4))" lisp-eval
     ] unit-test