From 7b4c91ea217b4fae31a5057d7698aa3e7f4e6afd Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 8 Jan 2016 18:27:43 -0700
Subject: [PATCH] setup/cross-system: configure reader properly

---
 racket/collects/setup/cross-system.rkt | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/racket/collects/setup/cross-system.rkt b/racket/collects/setup/cross-system.rkt
index 1b1c565c25..0da414457e 100644
--- a/racket/collects/setup/cross-system.rkt
+++ b/racket/collects/setup/cross-system.rkt
@@ -15,9 +15,11 @@
     (define ht (and lib-dir
                     (let ([f (build-path lib-dir "system.rktd")])
                       (and (file-exists? f)
-                           (let ([ht (call-with-input-file*
-                                      f
-                                      read)])
+                           (let ([ht (call-with-default-reading-parameterization
+                                      (lambda ()
+                                        (call-with-input-file*
+                                         f
+                                         read)))])
                              (and (hash? ht)
                                   (for/and ([sym (in-list (list*
                                                            'library-subpath