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
Index: TECH/Exceptions/enu/Schaal.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/enu/Schaal.cls.xml	(revision 0)
+++ TECH/Exceptions/enu/Schaal.cls.xml	(revision 818)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Exceptions.enu.Schaal">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;Major;Minor</Default>
+</Parameter>
+
+<Method name="Major">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.Exceptions.enu.Schaal</ReturnType>
+<Implementation><![CDATA[	Quit "Major"
+]]></Implementation>
+</Method>
+
+<Method name="Minor">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.Exceptions.enu.Schaal</ReturnType>
+<Implementation><![CDATA[	Quit "Minor"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>