Index: TECH/Exceptions/RuntimeException.cls.xml
===================================================================
diff -u -r1074 -r1931
--- TECH/Exceptions/RuntimeException.cls.xml	(.../RuntimeException.cls.xml)	(revision 1074)
+++ TECH/Exceptions/RuntimeException.cls.xml	(.../RuntimeException.cls.xml)	(revision 1931)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="TECH.Exceptions.RuntimeException">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,TECH.IException</Super>
+<Super>TECH.Exceptions.Exception</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ECode">
@@ -21,6 +21,7 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Do ##super()
 	Set ..ECode = ECode
 	Set ..ZError = ZError
 	Quit $$$OK
@@ -41,7 +42,10 @@
 
 <Method name="ToString">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "[ ZERROR: "_..ZError_" ] [ ECODE: "_..ECode_" ]"
+<Implementation><![CDATA[
+	Set Tekst = "[ ZERROR: "_..ZError_" ] [ ECODE: "_..ECode_" ]"
+	Set Tekst = Tekst_$C(13,10)_##super()
+	Quit Tekst
 ]]></Implementation>
 </Method>
 </Class>