Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r831 -r832
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 831)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 832)
@@ -52,8 +52,7 @@
 <Method name="VoegToeInnerExceptie">
 <FormalSpec>Exception:TECH.IException</FormalSpec>
 <Implementation><![CDATA[
-	If ..Schaal=##class(TECH.Exceptions.enu.Schaal).Minor()
-	{
+	If '..IsMajor() {
 		Set ..Schaal = Exception.GeefSchaal()
 	}
 	Do ..InnerExceptions.Insert(Exception)
@@ -75,12 +74,10 @@
 <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()
+	While ExceptionsIterator.HasNext() {
+		Do ..VoegToeInnerExceptie(ExceptionsIterator.Next())
 	}
-	Set ..InnerExceptions = Exceptions*/
 ]]></Implementation>
 </Method>