diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt index 522c676fa9..98bde316df 100644 --- a/collects/drracket/private/module-language.rkt +++ b/collects/drracket/private/module-language.rkt @@ -165,7 +165,8 @@ (when ns (current-namespace ns))) (define/private (get-ns str) - (define ev (make-evaluator 'racket/base)) + (define ev (parameterize ([sandbox-path-permissions (list (list 'exists #rx#""))]) + (make-evaluator 'racket/base))) (ev `(current-inspector ,(current-inspector))) (ev `(parameterize ([read-accept-reader #t]) (define stx (read-syntax "here" (open-input-string ,str)))