Index: vhUnitTest/Res/TestVertalingAbstract.cls.xml
===================================================================
diff -u -r34586 -r40251
--- vhUnitTest/Res/TestVertalingAbstract.cls.xml	(.../TestVertalingAbstract.cls.xml)	(revision 34586)
+++ vhUnitTest/Res/TestVertalingAbstract.cls.xml	(.../TestVertalingAbstract.cls.xml)	(revision 40251)
@@ -5,6 +5,15 @@
 d ##class(vhUnitTest.Manager).RunTest("/display=all/debug","Res.TestVertalingAbstract")</Description>
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	#dim ClassName As %String = ..%ClassName(1)
+	&SQL(DELETE FROM Res.VertalingAbstract WHERE Intern = :ClassName)
+]]></Implementation>
+</Method>
+
 <Method name="TestEvents">
 <Implementation><![CDATA[
 	Set EventTesterAangemaakt = ##class(vhTest.Utils.TECH.PubSub.EventSubscription.Tester).%New("VertalingAangemaaktEvent")
@@ -34,15 +43,6 @@
 	Do EventTesterGewijzigd.Deregistreer()
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	#dim ClassName As %String = ..%ClassName(1)
-	&SQL(DELETE FROM Res.VertalingAbstract WHERE Intern = :ClassName)
- 	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>