From 310c47ff05c0097c24300a1b6da15de46ad43a0c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 24 Sep 1998 18:33:31 +0000
Subject: [PATCH] .

original commit: 0ef7599743daf5cf73e62872c5c920125fd87550
---
 src/mred/wrap/mred.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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%))