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>