Index: TECH/IO.cls.xml
===================================================================
diff -u -r2402 -r2403
--- TECH/IO.cls.xml	(.../IO.cls.xml)	(revision 2402)
+++ TECH/IO.cls.xml	(.../IO.cls.xml)	(revision 2403)
@@ -19,7 +19,11 @@
 <ReturnType>%Stream</ReturnType>
 <Implementation><![CDATA[
 	set ..IO = $IO
-	
+
+	set Stream = ##class(%FileCharacterStream).%New()
+	do Stream.Write("")
+	do Stream.Flush()
+
 	set ..Filename = ##class(TECH.File).GetTempDir()_Stream.Filename
 	
 	#if $system.Version.GetMajor()=5