Index: TECH/XmlObjectUtils.cls.xml
===================================================================
diff -u -r3264 -r3265
--- TECH/XmlObjectUtils.cls.xml	(.../XmlObjectUtils.cls.xml)	(revision 3264)
+++ TECH/XmlObjectUtils.cls.xml	(.../XmlObjectUtils.cls.xml)	(revision 3265)
@@ -5,18 +5,18 @@
 
 <Method name="GeefXMLStream">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Dto:%XML.Adaptor,TopTag:%String=""</FormalSpec>
+<FormalSpec>Dto:%XML.Adaptor,TopTag:%String="",Encoding:%String=""</FormalSpec>
 <ReturnType>%GlobalCharacterStream</ReturnType>
 <Implementation><![CDATA[
 	Set XMLStream=##class(%GlobalCharacterStream).%New()
-	Do ..VoegToeXMLAanStream(.XMLStream, Dto, TopTag)
+	Do ..VoegToeXMLAanStream(.XMLStream, Dto, TopTag,Encoding)
 	Quit XMLStream
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeXMLAanStream">
 <ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[&XMLStream:%Library.AbstractStream,Dto:%XML.Adaptor,TopTag:%String=""]]></FormalSpec>
+<FormalSpec><![CDATA[&XMLStream:%Library.AbstractStream,Dto:%XML.Adaptor,TopTag:%String="",Charset:%String=""]]></FormalSpec>
 <Implementation><![CDATA[
 	#define AllowEmptyProxy 	0
 	#define NoXMLDeclaration	0
@@ -25,7 +25,7 @@
 	Do:$$$Not(Dto.%Extends("%XML.Adaptor")) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("XmlObject is niet ondersteund ("_Dto_")."))	
 	
 	Try {
-		Do ..ProxyToXMLStream(Dto, XMLStream, .TopTag, $$$IndentTags, $$$AllowEmptyProxy, $$$NoXMLDeclaration)
+		Do ..ProxyToXMLStream(Dto, XMLStream, .TopTag, $$$IndentTags, $$$AllowEmptyProxy, $$$NoXMLDeclaration , Charset)
 	} Catch {
 		#dim Exception As TECH.Exceptions.StatusException = ##class(TECH.ExceptionHandler).Catch("TECH.Exceptions.StatusException")
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"ProxyToXMLStream Failed",Exception.GeefStatus()))
@@ -35,7 +35,7 @@
 
 <Method name="ProxyToXMLStream">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>pxObj:%XML.Adaptor,DataStream:%Stream.Object,TopTag:%String,blnIndentTags:%Boolean=0,AllowEmptyProxy:%Boolean=0,NoXMLDeclaration:%Boolean</FormalSpec>
+<FormalSpec>pxObj:%XML.Adaptor,DataStream:%Stream.Object,TopTag:%String,blnIndentTags:%Boolean=0,AllowEmptyProxy:%Boolean=0,NoXMLDeclaration:%Boolean,Charset:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#define ErrorEmptyProxyObject   $$$ERROR($$$GeneralError,"No proxy-object supplied")
@@ -48,6 +48,7 @@
  
 	Set:('$IsObject($G(DataStream))) DataStream=##class(%FileBinaryStream).%New()
 	Set writer=##class(%XML.Writer).%New()
+	Set:$length(Charset) writer.Charset=Charset
 	Set writer.Indent=''blnIndentTags
 	Set writer.NoXMLDeclaration=NoXMLDeclaration
 	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(writer.OutputToStream(DataStream),"Failed to output data to stream")