Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r1976 -r34134
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 1976)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 34134)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="TECH.Exceptions.Exception">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.IException,%RegisteredObject</Super>
+<Super>TECH.IException,TECH.RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="InnerException">
@@ -51,6 +51,7 @@
 	Set Tekst = ""
 	Set Tekst = Tekst_"Omschrijving: "_$C(9)_..GeefOmschrijving()_$C(13,10)
 	Set Tekst = Tekst_"ErrorCode: "_$C(9)_..GeefExceptionCode()_$C(13,10)
+	Set:($length(..GeefTekstOpLijn())) Tekst = Tekst_..GeefTekstOpLijn()
 	Set Tekst = Tekst_"Tijdstip: "_$C(9)_..GeefTijdstip()_$C(13,10)	 
 	
 	If $IsObject(..InnerException){ 
@@ -62,6 +63,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTekstOpLijn">
+<Description>
+Overschrijven in klasse TECH.Exceptions.RuntimeException </Description>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefInnerException">
 <ReturnType>TECH.IException</ReturnType>
 <Implementation><![CDATA[	Quit ..InnerException