diff --git a/collects/macro-debugger/syntax-browser/pretty-helper.rkt b/collects/macro-debugger/syntax-browser/pretty-helper.rkt
index b9f5425..3573d55 100644
--- a/collects/macro-debugger/syntax-browser/pretty-helper.rkt
+++ b/collects/macro-debugger/syntax-browser/pretty-helper.rkt
@@ -53,11 +53,11 @@
 ;;   - a hashtable mapping S-expressions to syntax objects
 ;;   - a hashtable mapping syntax objects to S-expressions
 ;; Syntax objects which are eq? will map to same flat values
-(define (syntax->datum/tables stx partition limit suffixopt)
-  (table stx partition limit suffixopt))
+(define (syntax->datum/tables stx partition limit suffixopt abbrev?)
+  (table stx partition limit suffixopt abbrev?))
 
-;; table : syntax maybe-partition% maybe-num SuffixOption -> (values s-expr hashtable hashtable)
-(define (table stx partition limit suffixopt)
+;; table : syntax maybe-partition% maybe-num SuffixOption boolean -> (values s-expr hashtable hashtable)
+(define (table stx partition limit suffixopt abbrev?)
   (define (make-identifier-proxy id)
     (define sym (syntax-e id))
     (case suffixopt
@@ -89,7 +89,7 @@
                  (hash-set! flat=>stx lp-datum obj)
                  (hash-set! stx=>flat obj lp-datum)
                  lp-datum)]
-              [(and (syntax? obj) (check+convert-special-expression obj))
+              [(and (syntax? obj) abbrev? (check+convert-special-expression obj))
                => (lambda (newobj)
                     (when partition (send/i partition partition<%> get-partition obj))
                     (let* ([inner (cadr newobj)]
diff --git a/collects/macro-debugger/syntax-browser/pretty-printer.rkt b/collects/macro-debugger/syntax-browser/pretty-printer.rkt
index 7de1c17..ca0855b 100644
--- a/collects/macro-debugger/syntax-browser/pretty-printer.rkt
+++ b/collects/macro-debugger/syntax-browser/pretty-printer.rkt
@@ -15,7 +15,7 @@
                              primary-partition colors suffix-option styles columns abbrev?)
   (define range-builder (new range-builder%))
   (define-values (datum ht:flat=>stx ht:stx=>flat)
-    (syntax->datum/tables stx primary-partition colors suffix-option))
+    (syntax->datum/tables stx primary-partition colors suffix-option abbrev?))
   (define identifier-list
     (filter identifier? (hash-map ht:stx=>flat (lambda (k v) k))))
   (define (flat=>stx obj)