diff --git a/collects/macro-debugger/expand.ss b/collects/macro-debugger/expand.ss
index 29f6d77..48d4c22 100644
--- a/collects/macro-debugger/expand.ss
+++ b/collects/macro-debugger/expand.ss
@@ -25,7 +25,7 @@
 (define (expand/show-predicate stx show?)
   (let-values ([(result deriv) (trace/result stx)])
     (when (exn? result) (raise result))
-    (let-values ([(_steps _uses stx exn2)
+    (let-values ([(_steps _defs _uses stx exn2)
                   (parameterize ((macro-policy show?))
                     (reductions+ deriv))])
       (when (exn? exn2) (raise exn2))
diff --git a/collects/macro-debugger/stepper-text.ss b/collects/macro-debugger/stepper-text.ss
index 3df8213..327b52a 100644
--- a/collects/macro-debugger/stepper-text.ss
+++ b/collects/macro-debugger/stepper-text.ss
@@ -93,13 +93,6 @@
            ((if display-like? display write) (syntax-dummy-val obj) port)]
           [else 
            (error 'pretty-print-hook "unexpected special value: ~e" obj)]))
-  (define (pp-extend-style-table)
-    (let* ([ids identifier-list]
-           [syms (map (lambda (x) (hash-ref stx=>flat x)) ids)]
-           [like-syms (map syntax-e ids)])
-      (pretty-print-extend-style-table (pp-better-style-table)
-                                       syms
-                                       like-syms)))
   (define (pp-better-style-table)
     (pretty-print-extend-style-table (pretty-print-current-style-table)
                                      (map car extended-style-list)
@@ -107,7 +100,7 @@
   (parameterize 
    ([pretty-print-size-hook pp-size-hook]
     [pretty-print-print-hook pp-print-hook]
-    [pretty-print-current-style-table (pp-extend-style-table)])
+    [pretty-print-current-style-table (pp-better-style-table)])
    (pretty-print/defaults datum)))
 
 (define (->show-function show)