Index: vhTest/Fake/TECH/File/FileAPI.cls.xml
===================================================================
diff -u -r2428 -r2490
--- vhTest/Fake/TECH/File/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 2428)
+++ vhTest/Fake/TECH/File/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 2490)
@@ -3,9 +3,19 @@
 <Class name="vhTest.Fake.TECH.File.FileAPI">
 <Super>TECH.File.impl.FileAPI</Super>
 
+<Property name="FileWriter">
+<Type>vhTest.Fake.TECH.File.FileWriter</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefFileWriter">
 <ReturnType>TECH.File.FileWriter</ReturnType>
-<Implementation><![CDATA[	quit ##class(vhTest.Fake.TECH.File.FileWriter).%New()
+<Implementation><![CDATA[
+	if ('$IsObject(..FileWriter))
+	{
+		Set ..FileWriter = ##class(vhTest.Fake.TECH.File.FileWriter).%New()
+	}
+	quit ..FileWriter
 ]]></Implementation>
 </Method>
 
Index: vhTest/Fake/TECH/File/FileWriter.cls.xml
===================================================================
diff -u -r2401 -r2490
--- vhTest/Fake/TECH/File/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 2401)
+++ vhTest/Fake/TECH/File/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 2490)
@@ -75,8 +75,15 @@
 </Method>
 
 <Method name="WriteXML">
-<FormalSpec>XMLObject:%XML.Adaptor,XMLExportOpties:%String="literal,indent"</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<FormalSpec>XMLObject:%XML.Adaptor,XMLExportOpties:%String="literal,indent",TopTag:%String="",XMLDeclaration:%Boolean=1</FormalSpec>
+<Implementation><![CDATA[
+	Set writer = ##class(%XML.Writer).%New()
+	Set writer.Charset="UTF-8"
+	Set writer.Indent= XMLExportOpties["indent"
+	Set writer.NoXMLDeclaration =$$$Not(XMLDeclaration)
+	do writer.OutputToStream(..BestandenInhoud.GetAt(..BestandVolledigeNaam))
+	do writer.RootObject(XMLObject, .TopTag)
+]]></Implementation>
 </Method>
 
 <Method name="%OnNew">