Index: TECH/IException.cls.xml
===================================================================
diff -u -r164 -r179
--- TECH/IException.cls.xml	(.../IException.cls.xml)	(revision 164)
+++ TECH/IException.cls.xml	(.../IException.cls.xml)	(revision 179)
@@ -32,6 +32,11 @@
 <ReturnType>%Boolean</ReturnType>
 </Method>
 
+<Method name="GeefSpecifiekeData">
+<Abstract>1</Abstract>
+<ReturnType>%XML.Adaptor</ReturnType>
+</Method>
+
 <Method name="ToString">
 <Description>
 Wordt door de error handler in het e-mailbericht bijgeschreven.</Description>
Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r164 -r179
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 164)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 179)
@@ -101,6 +101,12 @@
 <Implementation><![CDATA[	Quit 1
 ]]></Implementation>
 </Method>
+
+<Method name="GeefSpecifiekeData">
+<ReturnType>%XML.Adaptor</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/Error/impl/ErrorHandler.cls.xml
===================================================================
diff -u -r152 -r179
--- TECH/Error/impl/ErrorHandler.cls.xml	(.../ErrorHandler.cls.xml)	(revision 152)
+++ TECH/Error/impl/ErrorHandler.cls.xml	(.../ErrorHandler.cls.xml)	(revision 179)
@@ -58,8 +58,11 @@
 		}Else{
 			Set Error.StackTrace = ##class(TECH.Process).GeefStackTrace(1)
 		}
+		#dim Data As %String = ""
 		Set Error.ErrorCode = %Exception.GeefOmschrijving()
 		Set Error.ErrorCode2="`"_%Exception.GeefExceptionCode()_"`"_%Exception.GeefOmschrijving()_"`"
+		Do:$IsObject(%Exception.GeefSpecifiekeData()) %Exception.GeefSpecifiekeData().XMLExportToString(.Data)
+		Set Error.Data = Data
 	}
 	else {
 		if Error.ErrorCode["<ECODETRAP>" { set Error.ErrorCode2=$ECODE }
Index: TECH/Error/dto/ErrorInfo.cls.xml
===================================================================
diff -u -r9 -r179
--- TECH/Error/dto/ErrorInfo.cls.xml	(.../ErrorInfo.cls.xml)	(revision 9)
+++ TECH/Error/dto/ErrorInfo.cls.xml	(.../ErrorInfo.cls.xml)	(revision 179)
@@ -83,6 +83,10 @@
 <Parameter name="MAXLEN"/>
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
+
+<Property name="Data">
+<Type>%String</Type>
+</Property>
 </Class>