diff --git a/test.scm b/test.scm
index f67c442b..72f9ab5d 100644
--- a/test.scm
+++ b/test.scm
@@ -28,10 +28,10 @@
       ;(write 'a)
       (letrec ((loop (lambda ()
                       (set! tmp (cons "cons" tmp))
-                      ;(write tmp)
+                      (write tmp)
                       (cond
                        ((> (length tmp) 1000)
-                        ;(write "resetting tmp")
+                        (write "resetting tmp")
                         (set! tmp '()))
                        (else #f))
                       (loop))))