Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r826 -r830
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 826)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 830)
@@ -49,7 +49,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZetInnerException">
+<Method name="VoegToeInnerExceptie">
 <FormalSpec>Exception:TECH.IException</FormalSpec>
 <Implementation><![CDATA[
 	If ..Schaal=##class(TECH.Exceptions.enu.Schaal).Minor()
@@ -60,7 +60,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZetInnerExceptions">
+<Method name="ZetInnerExcepties">
 <FormalSpec>Exceptions:TECH.ExceptionList</FormalSpec>
 <Implementation><![CDATA[
 	Set ..Schaal = ##class(TECH.Exceptions.enu.Schaal).Minor()
@@ -72,6 +72,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeInnerExcepties">
+<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>