diff --git a/collects/macro-debugger/stepper-text.rkt b/collects/macro-debugger/stepper-text.rkt
index 08d0e93..0cb3422 100644
--- a/collects/macro-debugger/stepper-text.rkt
+++ b/collects/macro-debugger/stepper-text.rkt
@@ -80,7 +80,7 @@
 
 (define (show-term stx partition)
   (define-values (datum flat=>stx stx=>flat)
-    (table stx partition 0 'always))
+    (table stx partition 0 'always #t))
   (define identifier-list 
     (filter identifier? (hash-map stx=>flat (lambda (k v) k))))
   (define (pp-size-hook obj display-like? port)
diff --git a/collects/macro-debugger/syntax-browser/pretty-helper.rkt b/collects/macro-debugger/syntax-browser/pretty-helper.rkt
index 3573d55..10329ee 100644
--- a/collects/macro-debugger/syntax-browser/pretty-helper.rkt
+++ b/collects/macro-debugger/syntax-browser/pretty-helper.rkt
@@ -83,7 +83,7 @@
               [(and partition (identifier? obj))
                (when (and (eq? suffixopt 'all-if-over-limit)
                           (> (send/i partition partition<%> count) limit))
-                 (call-with-values (lambda () (table stx partition #f 'always))
+                 (call-with-values (lambda () (table stx partition #f 'always abbrev?))
                                    escape))
                (let ([lp-datum (make-identifier-proxy obj)])
                  (hash-set! flat=>stx lp-datum obj)