Index: TECH/Exceptions/StatusException.cls.xml
===================================================================
diff -u -r1931 -r1969
--- TECH/Exceptions/StatusException.cls.xml	(.../StatusException.cls.xml)	(revision 1931)
+++ TECH/Exceptions/StatusException.cls.xml	(.../StatusException.cls.xml)	(revision 1969)
@@ -16,8 +16,9 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Do ##super(ExceptionCode, Omschrijving)
 	Set ..Status = Status
-	Quit ##super(ExceptionCode, Omschrijving)
+	Quit $$$OK
 ]]></Implementation>
 </Method>