From 3c9a4a284ad9dfbe09a0355f1b8b8a1cdedffbb4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 29 Apr 2008 00:24:24 +0000
Subject: [PATCH] fix 'can-update for Windows

svn: r9527
---
 src/mzscheme/src/port.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/port.c b/src/mzscheme/src/port.c
index c7baa0896d..15c3d5e8e3 100644
--- a/src/mzscheme/src/port.c
+++ b/src/mzscheme/src/port.c
@@ -3864,7 +3864,7 @@ scheme_do_open_output_file(char *name, int offset, int argc, Scheme_Object *argv
   } else if (existsok == 2) {
     hmode = OPEN_EXISTING;
   } else if (existsok == 3) {
-    hmode = CREATE_NEW;
+    hmode = OPEN_ALWAYS;
   }
 
   fd = CreateFileW(WIDE_PATH(filename),