diff --git a/collects/mred/private/editor.rkt b/collects/mred/private/editor.rkt
index 090d9512a7..551f0dea9c 100644
--- a/collects/mred/private/editor.rkt
+++ b/collects/mred/private/editor.rkt
@@ -247,7 +247,9 @@
                    (dynamic-wind
                      void
                      (lambda ()
-                       (set! port (open-output-file file (if text-mode? 'text 'binary) 'truncate/replace))
+                       (set! port (open-output-file file
+                                                    #:mode (if text-mode? 'text 'binary)
+                                                    #:exists 'truncate/replace))
                        (wx:file-creator-and-type file #"mReD" (if text? #"TEXT" #"WXME"))
                        (wx:begin-busy-cursor)
                        (dynamic-wind