Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r820 -r823
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 820)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 823)
@@ -33,6 +33,7 @@
 
 <Property name="Schaal">
 <Type>TECH.Exceptions.enu.Schaal</Type>
+<InitialExpression>##class(TECH.Exceptions.enu.Schaal).Major()</InitialExpression>
 <Private>1</Private>
 </Property>
 
@@ -44,7 +45,6 @@
 	Set ..ErrorID = "" //$$LOG^%ETN()
 	Set ..Stack = ##class(TECH.Process).GeefStackTrace(1)
 	Set ..Tijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
-	Do ..ZetSchaal(##class(TECH.Exceptions.enu.Schaal).Major())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -55,6 +55,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetInnerExceptions">
+<FormalSpec>Exceptions:TECH.ExceptionList</FormalSpec>
+<Implementation><![CDATA[
+	Set ..Schaal = ##class(TECH.Exceptions.enu.Schaal).Minor()
+	#dim ExceptionsIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Exceptions)
+	While ( ExceptionsIterator.HasNext() ) && ( ..Schaal=##class(TECH.Exceptions.enu.Schaal).Minor() ) {
+		Set ..Schaal = ExceptionsIterator.Next().GeefSchaal()
+	}
+	Set ..InnerExceptions = Exceptions
+]]></Implementation>
+</Method>
+
 <Method name="ToString">
 <FormalSpec>Prefix:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>