Index: TECH/Exceptions/AbstractOmschrijvingException.cls.xml
===================================================================
diff -u -r321 -r394
--- TECH/Exceptions/AbstractOmschrijvingException.cls.xml	(.../AbstractOmschrijvingException.cls.xml)	(revision 321)
+++ TECH/Exceptions/AbstractOmschrijvingException.cls.xml	(.../AbstractOmschrijvingException.cls.xml)	(revision 394)
@@ -1,14 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.Exceptions.AbstractOmschrijvingException">
-<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Exceptions.Exception</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Omschrijving">
 <Type>%String</Type>
 <Private>1</Private>
-<Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Method name="%OnNew">
@@ -42,6 +41,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>
Index: TECH/Exceptions/LockedException.cls.xml
===================================================================
diff -u -r321 -r394
--- TECH/Exceptions/LockedException.cls.xml	(.../LockedException.cls.xml)	(revision 321)
+++ TECH/Exceptions/LockedException.cls.xml	(.../LockedException.cls.xml)	(revision 394)
@@ -1,16 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.Exceptions.LockedException">
-<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Exceptions.AbstractOmschrijvingException</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefExceptionCode">
 <ReturnType>TECH.enu.ExceptionCode</ReturnType>
 <Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).Locked()
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>
Index: TECH/Exceptions/ObjectExpectedException.cls.xml
===================================================================
diff -u -r321 -r394
--- TECH/Exceptions/ObjectExpectedException.cls.xml	(.../ObjectExpectedException.cls.xml)	(revision 321)
+++ TECH/Exceptions/ObjectExpectedException.cls.xml	(.../ObjectExpectedException.cls.xml)	(revision 394)
@@ -1,16 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.Exceptions.ObjectExpectedException">
-<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Exceptions.AbstractOmschrijvingException</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefExceptionCode">
 <ReturnType>TECH.enu.ExceptionCode</ReturnType>
 <Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).ObjectExpected()
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>
Index: TECH/Exceptions/FileException.cls.xml
===================================================================
diff -u -r321 -r394
--- TECH/Exceptions/FileException.cls.xml	(.../FileException.cls.xml)	(revision 321)
+++ TECH/Exceptions/FileException.cls.xml	(.../FileException.cls.xml)	(revision 394)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.Exceptions.FileException">
-<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Exceptions.AbstractOmschrijvingException</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Status">
 <Type>%Status</Type>
@@ -34,6 +34,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>
Index: TECH/Exceptions/enu/Niveau.cls.xml
===================================================================
diff -u -r321 -r394
--- TECH/Exceptions/enu/Niveau.cls.xml	(.../Niveau.cls.xml)	(revision 321)
+++ TECH/Exceptions/enu/Niveau.cls.xml	(.../Niveau.cls.xml)	(revision 394)
@@ -1,9 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.Exceptions.enu.Niveau">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="VALUELIST">
 <Default>;Error;Waarschuwing</Default>
@@ -23,6 +24,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>
Index: TECH/Exceptions/GeneralErrorException.cls.xml
===================================================================
diff -u -r321 -r394
--- TECH/Exceptions/GeneralErrorException.cls.xml	(.../GeneralErrorException.cls.xml)	(revision 321)
+++ TECH/Exceptions/GeneralErrorException.cls.xml	(.../GeneralErrorException.cls.xml)	(revision 394)
@@ -1,16 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.Exceptions.GeneralErrorException">
-<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Exceptions.AbstractOmschrijvingException</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefExceptionCode">
 <ReturnType>TECH.enu.ExceptionCode</ReturnType>
 <Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).GeneralError()
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>
Index: TECH/Exceptions/StatusException.cls.xml
===================================================================
diff -u -r321 -r394
--- TECH/Exceptions/StatusException.cls.xml	(.../StatusException.cls.xml)	(revision 321)
+++ TECH/Exceptions/StatusException.cls.xml	(.../StatusException.cls.xml)	(revision 394)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.Exceptions.StatusException">
-<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Exceptions.BaseException</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Status">
 <Type>%Status</Type>
@@ -34,6 +34,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>
Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r321 -r394
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 321)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 394)
@@ -1,10 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.Exceptions.Exception">
-<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.IException,%RegisteredObject</Super>
-<Inheritance>right</Inheritance>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="InnerException">
 <Type>TECH.IException</Type>
@@ -16,7 +15,6 @@
 TO DO : Stack zou een %Stream moeten worden.</Description>
 <Type>%String</Type>
 <Private>1</Private>
-<Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Property name="Tijdstip">
@@ -34,8 +32,8 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..ErrorID = "" //$$LOG^%ETN()
-	Set ..Stack = ##class(TECH.Process).GeefStackTrace(1)
+	Set ..ErrorID = $$LOG^%ETN()
+	Set ..Stack = ..StackTrace(1)
 	Set ..Tijdstip = ##class(TECH.DateTime).CurrentTimeStamp()
 	Quit $$$OK
 ]]></Implementation>
@@ -82,6 +80,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="StackTrace">
+<FormalSpec>StackLevel</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Txt=""
+	For i=StackLevel:1:$ESTACK { 
+		Set Txt=Txt_$C(13,10)_i_"   "_$STACK($STACK-i)_" : "_$STACK($STACK-i,"PLACE")_" -> "_$STACK($STACK-i,"MCODE")
+	}
+	Quit Txt
+]]></Implementation>
+</Method>
+
 <Method name="GeefErrorInformatie">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -95,19 +106,5 @@
 	Quit ErrorInfo
 ]]></Implementation>
 </Method>
-
-<Method name="StuurMailBijError">
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="GeefSpecifiekeData">
-<ReturnType>%XML.Adaptor</ReturnType>
-<Implementation><![CDATA[	Quit ""
-]]></Implementation>
-</Method>
 </Class>
-
-
 </Export>
Index: TECH/Exceptions/RuntimeException.cls.xml
===================================================================
diff -u -r321 -r394
--- TECH/Exceptions/RuntimeException.cls.xml	(.../RuntimeException.cls.xml)	(revision 321)
+++ TECH/Exceptions/RuntimeException.cls.xml	(.../RuntimeException.cls.xml)	(revision 394)
@@ -1,20 +1,18 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.Exceptions.RuntimeException">
-<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Exceptions.Exception</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ECode">
 <Type>%String</Type>
 <Private>1</Private>
-<Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Property name="ZError">
 <Type>%String</Type>
 <Private>1</Private>
-<Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Method name="%OnNew">
@@ -32,7 +30,7 @@
 
 <Method name="GeefOmschrijving">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "Runtime exception : "_..GeefZerror()
+<Implementation><![CDATA[	Quit "Runtime exception"
 ]]></Implementation>
 </Method>
 
@@ -50,19 +48,5 @@
 	Quit Tekst
 ]]></Implementation>
 </Method>
-
-<Method name="GeefEcode">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..ECode
-]]></Implementation>
-</Method>
-
-<Method name="GeefZerror">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..ZError
-]]></Implementation>
-</Method>
 </Class>
-
-
 </Export>
Index: TECH/Exceptions/InvalidInputException.cls.xml
===================================================================
diff -u -r321 -r394
--- TECH/Exceptions/InvalidInputException.cls.xml	(.../InvalidInputException.cls.xml)	(revision 321)
+++ TECH/Exceptions/InvalidInputException.cls.xml	(.../InvalidInputException.cls.xml)	(revision 394)
@@ -1,16 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.Exceptions.InvalidInputException">
-<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Exceptions.AbstractOmschrijvingException</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefExceptionCode">
 <ReturnType>TECH.enu.ExceptionCode</ReturnType>
 <Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).InvalidInput()
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>
Index: TECH/Exceptions/BaseException.cls.xml
===================================================================
diff -u -r321 -r394
--- TECH/Exceptions/BaseException.cls.xml	(.../BaseException.cls.xml)	(revision 321)
+++ TECH/Exceptions/BaseException.cls.xml	(.../BaseException.cls.xml)	(revision 394)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.Exceptions.BaseException">
-<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Exceptions.Exception</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ExceptionCode">
 <Type>TECH.enu.ExceptionCode</Type>
@@ -13,7 +13,6 @@
 <Property name="Omschrijving">
 <Type>%String</Type>
 <Private>1</Private>
-<Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Method name="%OnNew">
@@ -53,6 +52,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>
Index: TECH/Exceptions/SaveFailedException.cls.xml
===================================================================
diff -u -r321 -r394
--- TECH/Exceptions/SaveFailedException.cls.xml	(.../SaveFailedException.cls.xml)	(revision 321)
+++ TECH/Exceptions/SaveFailedException.cls.xml	(.../SaveFailedException.cls.xml)	(revision 394)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.Exceptions.SaveFailedException">
-<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Exceptions.AbstractOmschrijvingException</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Status">
 <Type>%Status</Type>
@@ -34,6 +34,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>