From 4703212d8dda88298d765315011321c054d3b1ad Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 8 Apr 2005 19:44:47 +0000
Subject: [PATCH] .

original commit: 79b36eed9341b651d3feae1acf3505db20e8e6b2
---
 collects/mzlib/file.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/file.ss b/collects/mzlib/file.ss
index 1eaa9cc..5407e14 100644
--- a/collects/mzlib/file.ss
+++ b/collects/mzlib/file.ss
@@ -293,10 +293,12 @@
 		   (read-decimal-as-inexact #t)
 		   (read-accept-dot #t)
 		   (read-accept-quasiquote #t)
+		   (read-accept-reader #f)
 		   (print-struct #f)
 		   (print-graph #t)
 		   (print-box #t)
-		   (print-vector-length #t))
+		   (print-vector-length #t)
+		   (current-readtable #f))
       (thunk)))