From 45c276b5db0a25077d50d4a11d042e987a939802 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Tue, 2 Jul 2013 16:14:35 -0400
Subject: [PATCH] Fix reading of config.rktd file when in strange readtable.

---
 racket/lib/collects/setup/dirs.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/racket/lib/collects/setup/dirs.rkt b/racket/lib/collects/setup/dirs.rkt
index 2242d9015b..128e5524e0 100644
--- a/racket/lib/collects/setup/dirs.rkt
+++ b/racket/lib/collects/setup/dirs.rkt
@@ -26,7 +26,9 @@
                  (if (file-exists? p)
                      (call-with-input-file* 
                       p
-                      (lambda (in) (read in)))
+                      (lambda (in) 
+                        (parameterize ([current-readtable (make-readtable #f)]) 
+                          (read in))))
                      #hash()))
                #hash()))))