From 7eb822f03ac1db439c19b816f358f6647a0b8bfc Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Mon, 5 Oct 2009 04:37:47 +0000
Subject: [PATCH] forgot leftover

svn: r16241
---
 collects/setup/winvers-change.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/setup/winvers-change.ss b/collects/setup/winvers-change.ss
index f34e1dec15..64624f6ea9 100644
--- a/collects/setup/winvers-change.ss
+++ b/collects/setup/winvers-change.ss
@@ -49,7 +49,7 @@
           [(regexp-match-positions xxxs dfile)
            (fprintf (current-error-port)
                     "Warning: ~a was not renamed!\n" (full-path))]))
-  (let-values ([(i o) (open-input-output-file file 'update)])
+  (let-values ([(i o) (open-input-output-file file #:exists 'update)])
     (define print? verbose?)
     (for ([subst (in-list substitutions)])
       (file-position i 0)