From a38e6a19abfa61945cc98b5688e49fd7305c9361 Mon Sep 17 00:00:00 2001
From: Asumu Takikawa <asumu@ccs.neu.edu>
Date: Sat, 26 May 2012 16:22:33 -0400
Subject: [PATCH] racket/gui: fix a mzscheme->racket/base issue

---
 collects/mred/private/editor.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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