From ae50ffd04414fe463b2a99a3a5566abb0e6e3fe4 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Fri, 18 Jan 2008 02:45:33 +0000
Subject: [PATCH] doug orleans error

svn: r8360
---
 collects/web-server/dispatchers/dispatch-log.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/web-server/dispatchers/dispatch-log.ss b/collects/web-server/dispatchers/dispatch-log.ss
index 1bdf4ba061..5233689a76 100644
--- a/collects/web-server/dispatchers/dispatch-log.ss
+++ b/collects/web-server/dispatchers/dispatch-log.ss
@@ -88,7 +88,7 @@
                        (begin
                          (unless (eq? log-p #f)
                            (close-output-port log-p))
-                         (let ([new-log-p (open-output-file log-path 'append)])
+                         (let ([new-log-p (open-output-file log-path #:exists 'append)])
                            (file-stream-buffer-mode new-log-p 'line)
                            new-log-p))
                        log-p))