Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r824 -r826
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 824)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 826)
@@ -130,6 +130,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsMajor">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..Schaal=##class(TECH.Exceptions.enu.Schaal).Major()
+]]></Implementation>
+</Method>
+
 <Method name="GeefTijdstip">
 <ReturnType>%TimeStamp</ReturnType>
 <Implementation><![CDATA[	Quit ..Tijdstip