diff --git a/collects/plai/mutator.rkt b/collects/plai/mutator.rkt
index 34f636960e..6d34d1bebc 100644
--- a/collects/plai/mutator.rkt
+++ b/collects/plai/mutator.rkt
@@ -235,7 +235,7 @@
 (define-syntax (mutator-datum stx)
   (syntax-case stx ()
     [(_ . e) 
-     (quasisyntax/loc stx (mutator-app collector:alloc-flat (#%datum . e)))]))
+     (quasisyntax/loc stx (mutator-anf-app collector:alloc-flat (#%datum . e)))]))
 
 (define-syntax (mutator-top-interaction stx)
   (syntax-case stx (require provide mutator-define mutator-define-values test/value=? import-primitives)