diff --git a/src/lisp/test-gc.lisp b/src/lisp/test-gc.lisp
index a41e146..af4795f 100644
--- a/src/lisp/test-gc.lisp
+++ b/src/lisp/test-gc.lisp
@@ -1,3 +1,8 @@
+(defun test-gc-eval ()
+  (eval '(progn
+          (list "hello" "world")
+          (gc))))
+
 (defun main ()
   ;; Allocate some garbage
   (let1 (used "this should NOT be freed")
@@ -5,7 +10,9 @@
         (list "this" "is" "a" "list")
         (gc)
         (print (list "Current allocations" "GC runs"))
-        (print (gc-stats))))
+        (print (gc-stats)))
+  (print "testing gc in eval")
+  (test-gc-eval))
 
 ;; Note: This should print that it is freeing both lists, but not the
 ;; string