diff --git a/collects/sirmail/recover.ss b/collects/sirmail/recover.ss
index 87e0d6fde1..3e4fef4064 100644
--- a/collects/sirmail/recover.ss
+++ b/collects/sirmail/recover.ss
@@ -1,3 +1,4 @@
+#lang scheme
 
 (require mzlib/list net/head)
 
@@ -24,4 +25,5 @@
 		   #f)
 		  rest))))))
 
-(with-output-to-file "mailbox" (lambda () (write mailbox) (newline)) 'truncate)
+(with-output-to-file "mailbox" (lambda () (write mailbox) (newline)) 
+                     #:exists 'truncate)