Index: TECH/Exceptions/RuntimeException.cls.xml
===================================================================
diff -u -r1931 -r34134
--- TECH/Exceptions/RuntimeException.cls.xml	(.../RuntimeException.cls.xml)	(revision 1931)
+++ TECH/Exceptions/RuntimeException.cls.xml	(.../RuntimeException.cls.xml)	(revision 34134)
@@ -48,5 +48,15 @@
 	Quit Tekst
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTekstOpLijn">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define ErrorToLine(%v)   $S($L($P(%v,">",2)):$TEXT(@$P(%v,">",2,32767)), 1:"")
+
+	Quit "Text op lijn: "_$C(9)_$$$Trim($$$ErrorToLine($ZError))_$$$CRLF
+]]></Implementation>
+</Method>
 </Class>
 </Export>
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