Index: vhUnitTest/WS/TBX/TestGroepOrder.cls.xml
===================================================================
diff -u -r320 -r326
--- vhUnitTest/WS/TBX/TestGroepOrder.cls.xml	(.../TestGroepOrder.cls.xml)	(revision 320)
+++ vhUnitTest/WS/TBX/TestGroepOrder.cls.xml	(.../TestGroepOrder.cls.xml)	(revision 326)
@@ -1,7 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="vhUnitTest.WS.TBX.TestGroepOrder">
+<ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestZetBonType">
 <Implementation><![CDATA[
@@ -30,12 +32,12 @@
 	do GroepOrder.ZetBonType(##class(APPS.TBXWeb.enu.BonType).Bestelbon())
 	do $$$AssertTrue(GroepOrder.%Save())
 		
-	Kill
-		
+	Kill Order1,Order2,GroepOrder
+
 	do $$$AssertEquals(##class(WS.TBX.OrderAbstract).%OpenId(1).BonType,##class(APPS.TBXWeb.enu.BonType).Bestelbon())
 	do $$$AssertEquals(##class(WS.TBX.OrderAbstract).%OpenId(2).BonType,##class(APPS.TBXWeb.enu.BonType).Bestelbon())
 	do $$$AssertEquals(##class(WS.TBX.OrderAbstract).%OpenId(3).BonType,##class(APPS.TBXWeb.enu.BonType).Bestelbon())
-		
+	
 	do ..ZetBonTypeCleanUp()
 ]]></Implementation>
 </Method>