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