diff --git a/tests/let-syntax-298.scm b/tests/let-syntax-298.scm
index 93a688c9..652f30c4 100644
--- a/tests/let-syntax-298.scm
+++ b/tests/let-syntax-298.scm
@@ -8,9 +8,11 @@
      (let-syntax ((foo (syntax-rules () ((_) 'ok))))
        (foo)))))
 
-;(define-syntax foo (syntax-rules ()))
+(define-syntax foo (syntax-rules () ((_) 'foo)))
 
 (write
 (bar)
 )
-;(foo) 
+(write
+(foo) 
+)
diff --git a/tests/when.scm b/tests/when.scm
index c24cbf20..40f7d1c7 100644
--- a/tests/when.scm
+++ b/tests/when.scm
@@ -74,7 +74,8 @@
                   ((test maybe-symbol t f) t)
                   ((test x t f) f))))
              (test abracadabra kt kf)))))
-;;(write (symbol?? a))
+(write (symbol?? a #t #f))
+(write (symbol?? "a" #t #f))
 
 (write
   (let-syntax