From 2de8b978baebe5ce2bbc0abf19f52cde93e94b0d Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 9 Oct 2010 15:02:49 -0500
Subject: [PATCH] move read-accept-lang parameter setting to the right place

---
 collects/lang/htdp-langs.rkt | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/collects/lang/htdp-langs.rkt b/collects/lang/htdp-langs.rkt
index 1404cbcfbb..fa6e7a586b 100644
--- a/collects/lang/htdp-langs.rkt
+++ b/collects/lang/htdp-langs.rkt
@@ -556,8 +556,7 @@
                                      (drscheme:rep:current-rep)))
           
           (define/override (front-end/interaction port settings)
-            (let ([t (parameterize ([read-accept-lang #f])
-                       (super front-end/interaction port settings))]
+            (let ([t (super front-end/interaction port settings)]
 		  [start? #t]
                   [done? #f])
               (λ ()
@@ -567,7 +566,8 @@
 		   #'(reset-tests)]
                   [done? eof]
                   [else
-                   (let ([ans (t)])
+                   (let ([ans (parameterize ([read-accept-lang #f])
+                                (t))])
                      (cond
                        [(eof-object? ans)
                         (set! done? #t)