Fixing problem found at Brown

collects/plai/mutator.rkt

@@ -110,7 +110,7 @@
     [(_) (mutator-app void)]
     [(_ e) e]
     [(_ fe e ...)
-     (mutator-let ([tmp fe]) (mutator-begin e ...))]))
+     (let ([tmp fe]) (mutator-begin e ...))]))
 
 ; Real Macros
 (define-syntax-rule (mutator-define-values (id ...) e)

collects/tests/plai/gc/good-mutators/thunks.rkt

@@ -0,0 +1,15 @@
+#lang plai/mutator
+(allocator-setup "../good-collectors/good-collector.ss" 4)
+
+; 2
+(define thunker
+  (lambda ()
+    ; 2
+    'alligator
+    ; 2
+    'bananna
+    ; 2
+    'frog))
+; 4 total
+
+(thunker)