diff --git a/collects/redex/private/size-snip.ss b/collects/redex/private/size-snip.ss
index 9c81cf34ed..005eb24c48 100644
--- a/collects/redex/private/size-snip.ss
+++ b/collects/redex/private/size-snip.ss
@@ -19,10 +19,15 @@
                     (λ (val display? op)
                       (cond
                         [(hole? val) 4]
+                        [(eq? val 'hole) 6]
                         [else #f]))]
                    [pretty-print-print-hook
                     (λ (val display? op)
-                      (display "hole" op))])
+                      (cond
+                        [(hole? val)
+                         (display "hole" op)]
+                        [(eq? val 'hole) 
+                         (display ",'hole" op)]))])
       (pretty-print v port)))
   
   (define reflowing-snip<%>
diff --git a/collects/redex/redex.scrbl b/collects/redex/redex.scrbl
index 48f403ce86..80aa3a9dac 100644
--- a/collects/redex/redex.scrbl
+++ b/collects/redex/redex.scrbl
@@ -1138,6 +1138,13 @@ These four parameters control the color of the edges in the graph.
 This is the default value of @scheme[pp] used by @scheme[traces] and
 @scheme[stepper] and it uses
 @scheme[pretty-print].
+
+It sets the @scheme[pretty-print-columns] parameter to
+@scheme[width], and it sets @scheme[pretty-print-size-hook]
+and @scheme[pretty-print-print-hook] to print holes and the
+symbol @scheme['hole] to match the way they are input in a
+@scheme[term] expression.
+
 }
 
 @section{Typesetting}