diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index ee46436b..13f3f92c 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -3881,6 +3881,7 @@
 
   (let ([mb (make-object menu-bar% frame)])
     (let ([m (make-object menu% "File" mb)])
+      (make-object menu-item% "Load File..." m (lambda (i e) (let ([f (get-file)]) (and f (evaluate (format "(load ~s)" f))))))
       (make-object menu-item% "Quit" m (lambda (i e) (send frame on-close) (send frame show #f)) #\q))
     (let ([m (make-object menu% "Edit" mb)])
       (append-editor-operation-menu-items m)))