Need the #:exists keyword here.

svn: r11704
2008-09-12 22:43:58 +00:00 · 2008-09-12 22:43:58 +00:00 · f7cd4784de
commit f7cd4784de
parent 3c2cb93f74
1 changed files with 1 additions and 1 deletions
--- a/collects/handin-server/private/logger.ss
+++ b/collects/handin-server/private/logger.ss
@ -74,5 +74,5 @@
  (current-error-port
   (make-logger-port
    (and (get-conf 'log-output) (current-output-port))
-    (cond [(get-conf 'log-file) => (lambda (f) (open-output-file f 'append))]
+    (cond [(get-conf 'log-file) => (lambda (f) (open-output-file f #:exists 'append))]
          [else #f]))))