From 87e361c24a1a6ccb81658572e4d4796a33f33ef6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 6 May 2008 12:26:28 +0000
Subject: [PATCH] fix pack test suite

svn: r9683
---
 collects/tests/mzscheme/pack.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/tests/mzscheme/pack.ss b/collects/tests/mzscheme/pack.ss
index 3c7402778b..b19933b305 100644
--- a/collects/tests/mzscheme/pack.ss
+++ b/collects/tests/mzscheme/pack.ss
@@ -60,7 +60,7 @@
 
     (with-output-to-file "unpacked/packed/banana"
       (lambda () (printf "COCONUT\n"))
-      'truncate))
+      #:exists 'truncate))
 
   (parameterize ([current-directory dest])
     (unpack x-plt-str))