diff --git a/collects/mzlib/pretty.ss b/collects/mzlib/pretty.ss
index 0d00e140e2..159a2532a9 100644
--- a/collects/mzlib/pretty.ss
+++ b/collects/mzlib/pretty.ss
@@ -668,9 +668,9 @@
 		  #f #f
 		  (lambda ()
 		    (out "#hash")
-		    (wr-lst (hash-table-map obj cons) #f depth))
-		  (parameterize ([print-hash-table #f])
-		    ((if display? orig-display orig-write) obj pport))))]
+		    (wr-lst (hash-table-map obj cons) #f depth)))
+		 (parameterize ([print-hash-table #f])
+		   ((if display? orig-display orig-write) obj pport)))]
 	    [(boolean? obj)
 	     (out (if obj "#t" "#f"))]
 	    [(number? obj)