Index: TECH/IO.cls.xml
===================================================================
diff -u -r2400 -r2402
--- TECH/IO.cls.xml	(.../IO.cls.xml)	(revision 2400)
+++ TECH/IO.cls.xml	(.../IO.cls.xml)	(revision 2402)
@@ -10,7 +10,7 @@
 <Private>1</Private>
 </Property>
 
-<Property name="File">
+<Property name="Filename">
 <Type>%String</Type>
 <Private>1</Private>
 </Property>
@@ -20,29 +20,30 @@
 <Implementation><![CDATA[
 	set ..IO = $IO
 	
-	Set Stream = ##class(%FileCharacterStream).%New()
-	do Stream.Write("")
-	do Stream.Flush()
+	set ..Filename = ##class(TECH.File).GetTempDir()_Stream.Filename
 	
-	Set ..File = ##class(TECH.File).GetTempDir()_Stream.Filename
-	Set Stream=""
-	
 	#if $system.Version.GetMajor()=5
-	open ..File:"wns"  
+	open ..Filename:"wns"  
 	#endif
 	
-	use ..File
+	use ..Filename
 	quit
 ]]></Implementation>
 </Method>
 
 <Method name="Reset">
-<ReturnType>%Stream</ReturnType>
 <Implementation><![CDATA[
-	close ..File
+	close ..Filename
 	use ..IO
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="GeefStream">
+<ReturnType>%FileCharacterStream</ReturnType>
+<Implementation><![CDATA[
 	set Stream = ##class(%FileCharacterStream).%New()
-	set Stream.Filename = ..File
+	set Stream.Filename = ..Filename
 	quit Stream
 ]]></Implementation>
 </Method>