Index: TECH/File/impl/FileWriter.cls.xml
===================================================================
diff -u -r3182 -r3254
--- TECH/File/impl/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 3182)
+++ TECH/File/impl/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 3254)
@@ -159,7 +159,7 @@
 	Set writer.Charset="UTF-8"
 	Set writer.Indent= XMLExportOpties["indent"
 	Set writer.NoXMLDeclaration =$$$Not(XMLDeclaration)
-	do writer.OutputToStream(..FileCharacterStream)
+	do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(writer.OutputToStream(..FileCharacterStream))
 	do writer.RootObject(XMLObject, .TopTag) 
 	quit
 ]]></Implementation>