..

original commit: 66b994ad812701bb81802b48e2c6cdf1523b8fa8

collects/framework/private/editor.ss

@@ -40,6 +40,7 @@
           save-file/gui-error))
 
       (define basic-mixin
+        (let ([mred:get-file get-file])
           (mixin (editor<%>) (basic<%>)
             
             (inherit get-filename save-file)
@@ -52,7 +53,7 @@
                                     (let ([internal-filename (get-filename)])
                                       (if (or (not internal-filename)
                                               (equal? internal-filename ""))
-                                        (get-file)
+                                          (mred:get-file)
                                           internal-filename))
                                     input-filename)])
                   (if filename
@@ -256,7 +257,7 @@
                                              (finder:put-file f d)))]
             
             
-          (super-instantiate ())))
+            (super-instantiate ()))))
 
       (define -keymap<%> (interface (basic<%>) get-keymaps))
       (define keymap-mixin