Index: vhUnitTest/APPS/PM/TestProductService.cls.xml
===================================================================
diff -u -r33030 -r40163
--- vhUnitTest/APPS/PM/TestProductService.cls.xml	(.../TestProductService.cls.xml)	(revision 33030)
+++ vhUnitTest/APPS/PM/TestProductService.cls.xml	(.../TestProductService.cls.xml)	(revision 40163)
@@ -14,8 +14,9 @@
 </Property>
 
 <Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+ 	Do ##super()
+ 	
  	set ..objTestData = ##class(vhUnitTest.DOM.PM.TestData).%New()
 	
 	do ..objTestData.CreeerTestData(1000,1005)
@@ -26,15 +27,14 @@
 </Method>
 
 <Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	do ..objTestData.VerwijderTestData(1000,1005)
 	do $$$AssertEquals($data(^KPR(1001,0)),0,"Producten verwijderd")
 	
 	set blnMetaDefOpgekuisd = ..objTestData.IsMetaDefMooiOpgekuisd()
 	do $$$AssertEquals(blnMetaDefOpgekuisd,1,"Sorteringswaarde opgekuisd in metadefs")
 
- 	Quit $$$OK
+ 	Do ##super()
 ]]></Implementation>
 </Method>
 
@@ -205,9 +205,9 @@
 <FormalSpec>Classificatie:DOM.PM.ClassificatieKnoop,Groep:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-		Do $$$AssertTrue(Classificatie.Code '= "","Er is een code aanwezig van deze classificatie ("_Groep_").")	
-		Do $$$AssertTrue(Classificatie.ClassificatieKey '= "","Er is een KKey aanwezig van deze classificatie.("_Groep_")")	
-		Do $$$AssertTrue(Classificatie.Omschrijving '= "","Er is een omschrijving aanwezig van deze classificatie.("_Groep_")")
+	Do $$$AssertTrue(Classificatie.Code '= "","Er is een code aanwezig van deze classificatie ("_Groep_").")	
+	Do $$$AssertTrue(Classificatie.ClassificatieKey '= "","Er is een KKey aanwezig van deze classificatie.("_Groep_")")	
+	Do $$$AssertTrue(Classificatie.Omschrijving '= "","Er is een omschrijving aanwezig van deze classificatie.("_Groep_")")
 ]]></Implementation>
 </Method>
 </Class>