Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r817 -r818
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 817)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 818)
@@ -31,6 +31,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Schaal">
+<Type>TECH.Exceptions.enu.Schaal</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -39,6 +44,7 @@
 	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>
@@ -95,6 +101,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetSchaal">
+<FormalSpec>Schaal:TECH.Exceptions.enu.Schaal</FormalSpec>
+<Implementation><![CDATA[	Set ..Schaal = Schaal
+]]></Implementation>
+</Method>
+
+<Method name="GeefSchaal">
+<ReturnType>TECH.Exceptions.enu.Schaal</ReturnType>
+<Implementation><![CDATA[	Quit ..Schaal
+]]></Implementation>
+</Method>
+
 <Method name="GeefTijdstip">
 <ReturnType>%TimeStamp</ReturnType>
 <Implementation><![CDATA[	Quit ..Tijdstip