diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
index 06c2260d72..98e1c9e943 100644
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -14,4 +14,14 @@ init-env
 
 { 3 } [
   "((lambda (x y) (+ x y)) 1 2)" lisp-string>factor call
+] unit-test
+
+"-" "math" "-" define-primitve
+
+{ 8.3 } [
+ [ 10.4 2.1 ] "-" <lisp-symbol> funcall
+] unit-test
+
+{ 42 } [
+  "((lambda (x y z) (+ x (- y z))) 40 3 1)" lisp-string>factor call
 ] unit-test
\ No newline at end of file