diff --git a/collects/plai/mutator.rkt b/collects/plai/mutator.rkt
index 4c2dfefd10..f67254ce26 100644
--- a/collects/plai/mutator.rkt
+++ b/collects/plai/mutator.rkt
@@ -110,7 +110,10 @@
     [(_) (mutator-app void)]
     [(_ e) e]
     [(_ fe e ...)
-     (let ([tmp fe]) (mutator-begin e ...))]))
+     (let ([tmp 
+            (syntax-parameterize ([mutator-tail-call? #f])
+                                 fe)])
+       (mutator-begin e ...))]))
 
 ; Real Macros
 (define-syntax-rule (mutator-define-values (id ...) e)
diff --git a/collects/tests/plai/gc/good-mutators/let-star.rkt b/collects/tests/plai/gc/other-mutators/begin.rkt
similarity index 55%
rename from collects/tests/plai/gc/good-mutators/let-star.rkt
rename to collects/tests/plai/gc/other-mutators/begin.rkt
index 4b76d97492..71f729b3ae 100644
--- a/collects/tests/plai/gc/good-mutators/let-star.rkt
+++ b/collects/tests/plai/gc/other-mutators/begin.rkt
@@ -1,5 +1,5 @@
 #lang plai/mutator
-(allocator-setup "../good-collectors/good-collector.rkt" 4)
+(allocator-setup "../good-collectors/good-collector.rkt" 6)
 
 (define (go)
   (let ([obj 'z])
diff --git a/collects/tests/plai/gc/run-test.rkt b/collects/tests/plai/gc/run-test.rkt
index eb0d42ef0c..9cb6d41c46 100644
--- a/collects/tests/plai/gc/run-test.rkt
+++ b/collects/tests/plai/gc/run-test.rkt
@@ -51,6 +51,14 @@
 (good (heap-loc head) 62 62 "at line 18")
 (bad (heap-loc head) 62 47 "at line 19")
 
+END
+ 
+  (capture-output (test-mutator (build-path here "other-mutators" "begin.rkt")))
+ =>
+ #<<END
+Value at location 2:
+#t
+
 END
  
  (test-mutator (build-path here "other-mutators" "quote.rkt"))
diff --git a/collects/tests/plai/test-random-mutator.rkt b/collects/tests/plai/test-random-mutator.rkt
index b4f964a1cb..ec74cfad89 100644
--- a/collects/tests/plai/test-random-mutator.rkt
+++ b/collects/tests/plai/test-random-mutator.rkt
@@ -15,8 +15,6 @@
 ;; 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)