diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss index abc2aa0d..06a92317 100644 --- a/src/mred/wrap/mred.ss +++ b/src/mred/wrap/mred.ss @@ -3142,7 +3142,7 @@ [on-close (lambda () (custodian-shutdown-all user-custodian) (semaphore-post waiting))] - [on-drop-file (lambda (f) (evaluate `(load ,f)))]) + [on-drop-file (lambda (f) (evaluate (format "(load ~s)" f)))]) (sequence (apply super-init args) (accept-drop-files #t))) "MrEd REPL" #f 500 400)) (define repl-buffer (make-object esq:text%))