Index: vhUnitTest/APPS/LEV/TestLeverancierBestand.cls.xml
===================================================================
diff -u -r29059 -r40181
--- vhUnitTest/APPS/LEV/TestLeverancierBestand.cls.xml	(.../TestLeverancierBestand.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/LEV/TestLeverancierBestand.cls.xml	(.../TestLeverancierBestand.cls.xml)	(revision 40181)
@@ -9,26 +9,24 @@
 <Super>vhUnitTest.TestCase</Super>
 
 <Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Do ##super()
 	Set ^KLE("UNITTESTLEVERANCIER 1",0) = "1\UNITTESTLEVERANCIER\\nv\KAPELANIELAAN 11\9140\TEMSE\1019\N\\EUR\\03-771 35 21\\\BE0426809007\0\\\\\\\\\\\60981,64059\SU\\\\\\\\\\\\\\\\\\\1"
 	Set ^KLE("UNITTESTLEVERANCIER 1",1) = "417703650194\\\\\\\\\\\\\\\\\\\\\\0\03-771 35 23\\\\\\\"
 	Set ^KLE("UNITTESTLEVERANCIER 1",2) = "\\\\\\\\\\\\\\10.01.03\\\\\\\\\\\\\\21.01.03\\"
 	Set ^DLE("UNITTESTLEVERANCIER 1",0) = "1\UNITTESTLEVERANCIER\\nv\KAPELANIELAAN 11\9140\TEMSE\1019\N\\EUR\\03-771 35 21\\\BE0426809007\0\\\\\\\\\\\60981,64059\SU\\\\\\\\\\\\\\\\\\\1"
 	Set ^DLE("UNITTESTLEVERANCIER 1",1) = "417703650194\\\\\\\\\\\\\\\\\\\\\\0\03-771 35 23\\\\\\\"
 	Set ^DLE("UNITTESTLEVERANCIER 1",2) = "\\\\\\\\\\\\\\10.01.03\\\\\\\\\\\\\\21.01.03\\"
 	Set ^KL1(1) = "UNITTESTLEVERANCIER 1"
-	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Kill ^KLE("UNITTESTLEVERANCIER 1")
 	Kill ^DLE("UNITTESTLEVERANCIER 1")
 	Kill ^KL1(1)
-	Quit $$$OK
+	Do ##super()
 ]]></Implementation>
 </Method>