Index: TECH/File/FileWriter.cls.xml
===================================================================
diff -u -r945 -r970
--- TECH/File/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 945)
+++ TECH/File/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 970)
@@ -26,7 +26,7 @@
 
 <Method name="WriteXML">
 <Abstract>1</Abstract>
-<FormalSpec>XMLObject:%XML.Adaptor,XMLExportOpties:%String="literal,indent"</FormalSpec>
+<FormalSpec>XMLObject:%XML.Adaptor,XMLExportOpties:%String="literal,indent",TopTag:%String=""</FormalSpec>
 </Method>
 
 <Method name="SetUTF8">
Index: TECH/File/impl/FileWriter.cls.xml
===================================================================
diff -u -r945 -r970
--- TECH/File/impl/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 945)
+++ TECH/File/impl/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 970)
@@ -148,10 +148,10 @@
 </Method>
 
 <Method name="WriteXML">
-<FormalSpec>XMLObject:%XML.Adaptor,XMLExportOpties:%String="literal,indent"</FormalSpec>
+<FormalSpec>XMLObject:%XML.Adaptor,XMLExportOpties:%String="literal,indent",TopTag:%String=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Status = XMLObject.XMLExportToStream(..FileCharacterStream,"",XMLExportOpties)
+	Set Status = XMLObject.XMLExportToStream(..FileCharacterStream, TopTag, XMLExportOpties)
 	If $$$ISERR(Status){
 		Set Exception = ##class(TECH.Exceptions.FileException).%New("Kon niet exporteren naar XML '"_XMLObject_"'.",Status)
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)