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 }