diff --git a/collects/mzlib/sandbox.ss b/collects/mzlib/sandbox.ss index 9515b8a..27f77db 100644 --- a/collects/mzlib/sandbox.ss +++ b/collects/mzlib/sandbox.ss @@ -509,8 +509,12 @@ [reqs (cond [(not requires) '()] [(not (list? requires)) (error 'make-evaluator "bad requires: ~e" requires)] - [else (map (lambda (r) (if (pair? r) r `(file ,r))) - requires)])]) + [else + (map (lambda (r) + (if (or (pair? r) (symbol? r)) + r + `(file ,(path->string (simplify-path* r))))) + requires)])]) (make-evaluator* (init-for-language lang) (require-perms lang reqs) (lambda () (build-program lang reqs input-program))))]