Index: TECH/IO.cls.xml
===================================================================
diff -u -r361 -r958
--- TECH/IO.cls.xml	(.../IO.cls.xml)	(revision 361)
+++ TECH/IO.cls.xml	(.../IO.cls.xml)	(revision 958)
@@ -21,6 +21,7 @@
 <ReturnType>%Stream</ReturnType>
 <Implementation><![CDATA[
 	set ..IO = $IO
+	set ..IO = $IO
 
 	set Stream = ##class(%FileCharacterStream).%New()
 	do Stream.Write("")
Index: vhUnitTest/TECH/TestIO.cls.xml
===================================================================
diff -u -r957 -r958
--- vhUnitTest/TECH/TestIO.cls.xml	(.../TestIO.cls.xml)	(revision 957)
+++ vhUnitTest/TECH/TestIO.cls.xml	(.../TestIO.cls.xml)	(revision 958)
@@ -23,6 +23,7 @@
 	Do IO.KuisOp()
 		
 	Do $$$AssertFalse(##class(TECH.File).Exists(IO.GeefLocatie()),"Stream bestaat niet meer op de locatie")
+	Do $$$AssertFalse(##class(TECH.File).Exists(IO.GeefLocatie()),"Stream bestaat niet meer op de locatie")
 ]]></Implementation>
 </Method>
 </Class>