diff --git a/lisp.scm b/lisp.scm
index f36b6f6..fe36dd7 100644
--- a/lisp.scm
+++ b/lisp.scm
@@ -88,8 +88,8 @@
 		       (_ (lisp-exit "malformed atom expression")))))
 	  (eq . ,(lambda function-args
 		   (match function-args
-		     ((a b) (let ((ea (eval a))
-				  (eb (eval b)))
+		     ((a b) (let ((ea (lisp-eval a))
+				  (eb (lisp-eval b)))
 			      (equal? ea eb)))
 		     (_ (lisp-exit "malformed eq expression")))))
 	  (set . ,(lambda function-args