Index: TECH/Exceptions/BaseException.cls.xml
===================================================================
diff -u -r9 -r811
--- TECH/Exceptions/BaseException.cls.xml	(.../BaseException.cls.xml)	(revision 9)
+++ TECH/Exceptions/BaseException.cls.xml	(.../BaseException.cls.xml)	(revision 811)
@@ -42,16 +42,6 @@
 <Implementation><![CDATA[	Quit ..Omschrijving
 ]]></Implementation>
 </Method>
-
-<Method name="ToString">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set Tekst = "Omschrijving: "_..Omschrijving_$C(13,10)
-	Set Tekst = Tekst_"ExceptionCode: "_..ExceptionCode
-	Set Tekst = Tekst_$C(13,10)_##super()
-	Quit Tekst
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r638 -r811
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 638)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 811)
@@ -1,13 +1,15 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.Exceptions.Exception">
+<Abstract>1</Abstract>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.IException,%RegisteredObject</Super>
+<Super>TECH.IException,TECH.RegisteredObject</Super>
 <Inheritance>right</Inheritance>
 
-<Property name="InnerException">
+<Property name="InnerExceptions">
 <Type>TECH.IException</Type>
+<Collection>list</Collection>
 <Private>1</Private>
 </Property>
 
@@ -36,30 +38,30 @@
 <Implementation><![CDATA[
 	Set ..ErrorID = "" //$$LOG^%ETN()
 	Set ..Stack = ##class(TECH.Process).GeefStackTrace(1)
-	Set ..Tijdstip = ##class(TECH.DateTime).CurrentTimeStamp()
+	Set ..Tijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="ZetInnerException">
 <FormalSpec>Exception:TECH.IException</FormalSpec>
-<Implementation><![CDATA[	Set ..InnerException = Exception
+<Implementation><![CDATA[	Do ..InnerExceptions.Insert(Exception)
 ]]></Implementation>
 </Method>
 
 <Method name="ToString">
+<FormalSpec>Prefix:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Tekst As %String = ""
-	Set Tekst = Tekst_"Omschrijving: "_$C(9)_..GeefOmschrijving()_$C(13,10)
-	Set Tekst = Tekst_"ErrorCode: "_$C(9)_..GeefExceptionCode()_$C(13,10)
-	Set Tekst = Tekst_..GeefTekstOpLijn()
-	Set Tekst = Tekst_"Tijdstip: "_$C(9)_..GeefTijdstip()_$C(13,10)	 
-	
-	If $IsObject(..InnerException){ 
-	 	Set Tekst = Tekst_$C(13,10)_$C(13,10)_"** InnerException **"_$C(13,10)_"------------------"_$C(13,10)_ ..InnerException.ToString()
-	}Else{	 
-		Set Tekst = Tekst _"Stack: "_$C(13,10)_"------------------"_$C(13,10)_..Stack
+	Set Tekst = Tekst_Prefix_"Omschrijving: "_$C(9)_..GeefOmschrijving()_$$$CRLF
+	Set Tekst = Tekst_Prefix_"ErrorCode: "_$C(9)_..GeefExceptionCode()_$$$CRLF
+	Set:$length(..GeefTekstOpLijn()) Tekst = Tekst_Prefix_..GeefTekstOpLijn()
+	Set Tekst = Tekst_Prefix_"Tijdstip: "_$C(9)_..GeefTijdstip()_$$$CRLF
+	#dim ErrorListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..InnerExceptions)
+	While ErrorListIterator.HasNext() {
+		#dim InnerException As TECH.Exceptions.Exception = ErrorListIterator.Next() 
+		Set Tekst = Tekst_ Prefix_"InnerExceptie "_ ErrorListIterator.Key() _":"_ $$$CRLF _InnerException.ToString(Prefix_"***")
 	}
 	Quit Tekst
 ]]></Implementation>
@@ -76,7 +78,7 @@
 
 <Method name="GeefInnerException">
 <ReturnType>TECH.IException</ReturnType>
-<Implementation><![CDATA[	Quit ..InnerException
+<Implementation><![CDATA[	Quit ..InnerExceptions
 ]]></Implementation>
 </Method>
 
@@ -95,11 +97,13 @@
 <Method name="GeefErrorInformatie">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set ErrorInfo = ""
-	If ($IsObject(..InnerException)){
-		set ErrorInfo = ..InnerException.GeefErrorInformatie()	
+	#dim ErrorInfo As %String = ""
+	#dim ErrorListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..InnerExceptions)
+	While ErrorListIterator.HasNext() {
+		#dim InnerException As TECH.Exceptions.Exception = ErrorListIterator.Next() 
+		Set ErrorInfo = ErrorInfo_ $$$CRLF _ "InnerExceptie: "_ ErrorListIterator.Key() _ $$$CRLF _"***"_ InnerException.ToString()
 	}
-	If ('$IsObject(..InnerException) || (ErrorInfo [ ##class(TECH.LogUtils).GeefTekstGeenInfo())){
+	If ('$IsObject(..InnerExceptions) || (ErrorInfo [ ##class(TECH.LogUtils).GeefTekstGeenInfo())){
 		Do ##class(TECH.LogUtils).GeefErrorInformatie(..ErrorID)
 	}
 	Quit ErrorInfo
@@ -117,6 +121,18 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="GeefExceptionCode">
+<Abstract>1</Abstract>
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+</Method>
+
+<Method name="GeefOmschrijving">
+<Description>
+Wordt gebruikt om in de ecode weg te schrijven, de omschrijving blijft dus best beperkt. </Description>
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
 </Class>
 
 
Index: TECH/Exceptions/AbstractOmschrijvingException.cls.xml
===================================================================
diff -u -r9 -r811
--- TECH/Exceptions/AbstractOmschrijvingException.cls.xml	(.../AbstractOmschrijvingException.cls.xml)	(revision 9)
+++ TECH/Exceptions/AbstractOmschrijvingException.cls.xml	(.../AbstractOmschrijvingException.cls.xml)	(revision 811)
@@ -30,17 +30,6 @@
 <Implementation><![CDATA[	Quit ..Omschrijving
 ]]></Implementation>
 </Method>
-
-<Method name="ToString">
-<Description>
-Wordt door de error handler in het e-mailbericht bijgeschreven.</Description>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set Tekst = ..GeefOmschrijving()
-	Set Tekst = Tekst_$C(13,10)_##super()
-	Quit Tekst
-]]></Implementation>
-</Method>
 </Class>