Index: vhUnitTest/TECH/Persistentie/GlobalPersistenceMgr/Test.cls.xml
===================================================================
diff -u -r2324 -r2914
--- vhUnitTest/TECH/Persistentie/GlobalPersistenceMgr/Test.cls.xml	(.../Test.cls.xml)	(revision 2324)
+++ vhUnitTest/TECH/Persistentie/GlobalPersistenceMgr/Test.cls.xml	(.../Test.cls.xml)	(revision 2914)
@@ -7,19 +7,17 @@
 
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Do ##super(aTestName)
 	Set ^vhUnitTestTECHGlobal(1,"a")="InitWaarde"
-	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Kill ^vhUnitTestTECHGlobal(1,"a")
-	Quit $$$OK
+	Do ##super(aTestName)
 ]]></Implementation>
 </Method>