diff --git a/collects/macro-debugger/stepper-text.ss b/collects/macro-debugger/stepper-text.ss
index 7a9a2a15b4..3df8213c8b 100644
--- a/collects/macro-debugger/stepper-text.ss
+++ b/collects/macro-debugger/stepper-text.ss
@@ -107,16 +107,8 @@
   (parameterize 
    ([pretty-print-size-hook pp-size-hook]
     [pretty-print-print-hook pp-print-hook]
-    [pretty-print-current-style-table (pp-extend-style-table)]
-    ;; Printing parameters (mzscheme manual 7.9.1.4)
-    [print-unreadable #t]
-    [print-graph #f]
-    [print-struct #f]
-    [print-box #t]
-    [print-vector-length #t]
-    [print-hash-table #f]
-    [print-honu #f])
-   (pretty-print datum)))
+    [pretty-print-current-style-table (pp-extend-style-table)])
+   (pretty-print/defaults datum)))
 
 (define (->show-function show)
   (cond [(procedure? show)
diff --git a/collects/macro-debugger/syntax-browser/pretty-helper.ss b/collects/macro-debugger/syntax-browser/pretty-helper.ss
index 4688d2b1b0..ba501acd74 100644
--- a/collects/macro-debugger/syntax-browser/pretty-helper.ss
+++ b/collects/macro-debugger/syntax-browser/pretty-helper.ss
@@ -1,6 +1,7 @@
 
 #lang scheme/base
 (require scheme/class
+         scheme/pretty
          macro-debugger/util/class-iop
          syntax/stx
          "interfaces.ss")
@@ -20,6 +21,18 @@
 ;; If they were always wrapped, the pretty-printer would screw up
 ;; list printing (I think).
 
+(define (pretty-print/defaults datum [port (current-output-port)])
+  (parameterize
+    (;; Printing parameters (defaults from MzScheme and DrScheme 4.2.2.2)
+     [print-unreadable #t]
+     [print-graph #f]
+     [print-struct #t]
+     [print-box #t]
+     [print-vector-length #f]
+     [print-hash-table #t]
+     [print-honu #f])
+    (pretty-print datum port)))
+
 (define-struct syntax-dummy (val))
 
 ;; A SuffixOption is one of
diff --git a/collects/macro-debugger/syntax-browser/pretty-printer.ss b/collects/macro-debugger/syntax-browser/pretty-printer.ss
index 3fbb89a356..4e561b3964 100644
--- a/collects/macro-debugger/syntax-browser/pretty-printer.ss
+++ b/collects/macro-debugger/syntax-browser/pretty-printer.ss
@@ -52,16 +52,8 @@
     [pretty-print-size-hook pp-size-hook]
     [pretty-print-print-hook pp-print-hook]
     [pretty-print-current-style-table (pp-extend-style-table identifier-list)]
-    [pretty-print-columns columns]
-    ;; Printing parameters (mzscheme manual 7.9.1.4)
-    [print-unreadable #t]
-    [print-graph #f]
-    [print-struct #t]
-    [print-box #t]
-    [print-vector-length #t]
-    [print-hash-table #f]
-    [print-honu #f])
-   (pretty-print datum port)
+    [pretty-print-columns columns])
+   (pretty-print/defaults datum port)
    (new range%
         (range-builder range-builder)
         (identifier-list identifier-list))))