Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r823 -r824
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 823)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 824)
@@ -51,7 +51,12 @@
 
 <Method name="ZetInnerException">
 <FormalSpec>Exception:TECH.IException</FormalSpec>
-<Implementation><![CDATA[	Do ..InnerExceptions.Insert(Exception)
+<Implementation><![CDATA[
+	If ..Schaal=##class(TECH.Exceptions.enu.Schaal).Minor()
+	{
+		Set ..Schaal = Exception.GeefSchaal()
+	}
+	Do ..InnerExceptions.Insert(Exception)
 ]]></Implementation>
 </Method>