Index: vhUnitTest/TECH/XmlObjectUtils/TestXMLStream.cls.xml
===================================================================
diff -u -r3018 -r3265
--- vhUnitTest/TECH/XmlObjectUtils/TestXMLStream.cls.xml	(.../TestXMLStream.cls.xml)	(revision 3018)
+++ vhUnitTest/TECH/XmlObjectUtils/TestXMLStream.cls.xml	(.../TestXMLStream.cls.xml)	(revision 3265)
@@ -10,7 +10,7 @@
 	#dim Veld1 As %String = "UT_dummy"
 	#dim Dto As vhUnitTest.TECH.XmlObjectUtils.DataTransferObject = ..GeefDto(Veld1)
 	
-	#dim XMLStream As %GlobalCharacterStream = ##class(TECH.XmlObjectUtils).GeefXMLStream(Dto)
+	#dim XMLStream As %GlobalCharacterStream = ##class(TECH.XmlObjectUtils).GeefXMLStream(Dto,,"UTF-8")
 	
 	If $$$AssertTrue($IsObject(XMLStream)) {
 		Do $$$AssertEquals(XMLStream.%ClassName(1),"%Library.GlobalCharacterStream")
@@ -26,7 +26,7 @@
 	#dim TopTag As %String = "MY_NEW_TOPTAG"
 	#dim Dto As vhUnitTest.TECH.XmlObjectUtils.DataTransferObject = ..GeefDto(Veld1)
 	
-	#dim XMLStream As %GlobalCharacterStream = ##class(TECH.XmlObjectUtils).GeefXMLStream(Dto,TopTag)
+	#dim XMLStream As %GlobalCharacterStream = ##class(TECH.XmlObjectUtils).GeefXMLStream(Dto,TopTag,"UTF-8")
 	
 	If $$$AssertTrue($IsObject(XMLStream)) {
 		Do XMLStream.Rewind()
@@ -43,7 +43,7 @@
 	
 	Set XMLStream = ##class(%FileCharacterStream).%New()
 	Do XMLStream.WriteLine("Dit is de eerste lijn")
-	Do ##class(TECH.XmlObjectUtils).VoegToeXMLAanStream(.XMLStream,Dto)
+	Do ##class(TECH.XmlObjectUtils).VoegToeXMLAanStream(.XMLStream,Dto,,"UTF-8")
 	
 	Do XMLStream.Rewind()
 	Do $$$AssertEquals(XMLStream.ReadLine(),"Dit is de eerste lijn","De eerste lijn is niet overschreven")