diff --git a/collects/macro-debugger/expand.ss b/collects/macro-debugger/expand.ss
index f08d1c7a93..5d721123e7 100644
--- a/collects/macro-debugger/expand.ss
+++ b/collects/macro-debugger/expand.ss
@@ -1,7 +1,8 @@
 #lang scheme/base
-(require "model/trace.ss")
+(require "model/trace.ss"
+         "model/reductions-config.ss"
+         "model/reductions.ss")
 
-#|
 (provide expand-only
          expand/hide)
 
@@ -21,6 +22,7 @@
   (let-values ([(result deriv) (trace/result stx)])
     (when (exn? result)
       (raise result))
-    (let-values ([(_d estx) (hide*/policy deriv show?)])
-      estx)))
-|#
+    (let-values ([(_steps _uses stx _exn)
+                  (parameterize ((macro-policy show?))
+                    (reductions+ deriv))])
+      stx)))