diff --git a/collects/scheme/sandbox.ss b/collects/scheme/sandbox.ss
index 3e989e40be..a4ce87fc05 100644
--- a/collects/scheme/sandbox.ss
+++ b/collects/scheme/sandbox.ss
@@ -57,11 +57,12 @@
                     #| no modules here by default |#)))
 
 (define (default-sandbox-reader source)
-  (let loop ([l '()])
-    (let ([expr (read-syntax source)])
-      (if (eof-object? expr)
+  (parameterize ([read-accept-reader #t])
+    (let loop ([l '()])
+      (let ([expr (read-syntax source)])
+        (if (eof-object? expr)
           (reverse l)
-          (loop (cons expr l))))))
+          (loop (cons expr l)))))))
 
 (define sandbox-reader (make-parameter default-sandbox-reader))