diff --git a/collects/tests/plai/gc/good-mutators/let-star.rkt b/collects/tests/plai/gc/good-mutators/let-star.rkt
new file mode 100644
index 0000000000..4b76d97492
--- /dev/null
+++ b/collects/tests/plai/gc/good-mutators/let-star.rkt
@@ -0,0 +1,9 @@
+#lang plai/mutator
+(allocator-setup "../good-collectors/good-collector.rkt" 4)
+
+(define (go)
+  (let ([obj 'z])
+    2 3
+    (symbol? obj)))
+
+(go)
\ No newline at end of file
diff --git a/collects/tests/plai/test-random-mutator.rkt b/collects/tests/plai/test-random-mutator.rkt
index ec74cfad89..b4f964a1cb 100644
--- a/collects/tests/plai/test-random-mutator.rkt
+++ b/collects/tests/plai/test-random-mutator.rkt
@@ -15,6 +15,8 @@
 ;; returns true if evaluating the example code (as a mutator)
 ;; returns one result at the top-level, namely the symbol 'passed.
 (define (test-code exps)
+  (printf "Test code\n")
+  (for-each pretty-print exps)
   (let ([tmpfile (make-temporary-file "plai-random-mutator-test-~a")])
     (call-with-output-file tmpfile
       (λ (port)