Index: vhUnitTest/DOM/PM/TestSamengesteldProduct.cls.xml
===================================================================
diff -u -r29059 -r40285
--- vhUnitTest/DOM/PM/TestSamengesteldProduct.cls.xml	(.../TestSamengesteldProduct.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/TestSamengesteldProduct.cls.xml	(.../TestSamengesteldProduct.cls.xml)	(revision 40285)
@@ -12,21 +12,20 @@
 </Property>
 
 <Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Do ##super()
+	
 	Set ..KindPRNr = 4428
 	Do ..OnAfterAllTests()
 	Set ^PRBS("BS",999,"KIND.001") = "4425\1\K\\\\\\\\P\"
 	Set ^PRBS("BS",999,"KIND.002") = "18791\1\K\\\\\\\\P\"
 	Set ^PRBS("BS",999,"TIJD.001") = "\1\T\\\\10\10\OLVERPAK\\VERPAK\\Vouwen"
 	
 	Set ^PRBS("BS",998,"TIJD.001") = "\1\T\\\\10\10\OLVERPAK\\VERPAK\\Vouwen"
- 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Kill ^PRBS("BS",999)
 	Kill ^PRBS("IP",999,..KindPRNr)
@@ -37,7 +36,7 @@
 	Kill ^PRBS("IP",998,..KindPRNr)
 	Kill ^PRLINK("D",998)
 	Kill ^PRLINK("IKM",..KindPRNr,998)
-	Quit $$$OK
+	Do ##super()
 ]]></Implementation>
 </Method>