Index: TECH/StreamUtils.cls.xml
===================================================================
diff -u -r1543 -r2269
--- TECH/StreamUtils.cls.xml	(.../StreamUtils.cls.xml)	(revision 1543)
+++ TECH/StreamUtils.cls.xml	(.../StreamUtils.cls.xml)	(revision 2269)
@@ -36,6 +36,23 @@
 	quit
 ]]></Implementation>
 </Method>
+
+<Method name="FormateerXmlStream">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BronStream:%Stream</FormalSpec>
+<ReturnType>%Stream</ReturnType>
+<Implementation><![CDATA[
+	Set reader=##class(%XML.Reader).%New()
+	Set writer=##class(%XML.Writer).%New()
+	Do reader.OpenStream(BronStream)
+	Set writer.Charset="UTF-8"
+	Set writer.Indent=1
+	Set Stream=##class(%GlobalCharacterStream).%New()
+	Do writer.OutputToStream(Stream)
+	Do writer.Document(reader.Document)
+	Quit Stream
+]]></Implementation>
+</Method>
 </Class>