setup/dirs: fix "config.rktd" reader

pkgs/racket-pkgs/racket-test/tests/racket/setup.rktl

@@ -49,6 +49,13 @@
   (test #t system* exec-path "-l" "raco" "make" "-j" "2" (path->string relpath))
   (delete-directory/files tmpdir))
 
+;; ----------------------------------------
+;; Make sure that setting the reader doesn't break reading a configuration file:
+
+(parameterize ([current-namespace (make-base-namespace)]
+               [read-accept-dot #f])
+  ((dynamic-require 'setup/dirs 'get-pkgs-search-dirs)))
+
 ;; ----------------------------------------
 
 (report-errs)

racket/collects/setup/dirs.rkt

@@ -24,8 +24,9 @@
                      (call-with-input-file* 
                       p
                       (lambda (in) 
-                        (parameterize ([current-readtable (make-readtable #f)]) 
-                          (read in))))
+                        (call-with-default-reading-parameterization
+                         (lambda ()
+                           (read in)))))
                      #hash()))
                #hash()))))