Index: TECH/BackgroundProcess/impl/Parameter/DataTransferObject.cls.xml
===================================================================
diff -u -r1198 -r2942
--- TECH/BackgroundProcess/impl/Parameter/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 1198)
+++ TECH/BackgroundProcess/impl/Parameter/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 2942)
@@ -50,7 +50,7 @@
 <FormalSpec>Object:TECH.DataTransferObject</FormalSpec>
 <Implementation><![CDATA[
 	set Stream = ##class(%GlobalCharacterStream).%New()
-	do Object.XMLExportToStream(.Stream,"DATA")
+	do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Object.XMLExportToStream(.Stream,"DATA"))
 	set ..Stream = Stream
 	set ..ClassName = Object.%ClassName(1)
 ]]></Implementation>