From 4290af69a6b7c27a777fbd50975a44012497a4c0 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 11 May 2005 21:18:47 +0000
Subject: [PATCH] .

original commit: ce57232bce02a500b1f27a9972960df4d9c88f4d
---
 collects/mzlib/pretty.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/pretty.ss b/collects/mzlib/pretty.ss
index 73091fd..0d00e14 100644
--- a/collects/mzlib/pretty.ss
+++ b/collects/mzlib/pretty.ss
@@ -656,7 +656,7 @@
 		  #f #f
 		  (lambda ()
 		    (out "#")
-		    (wr-lst (vector->list (struct->vector obj)) #f (sub1 depth))))
+		    (wr-lst (vector->list (struct->vector obj)) #f (dsub1 depth))))
 		 (parameterize ([print-struct #f])
 		   ((if display? orig-display orig-write) obj pport)))]
 	    [(hash-table? obj)