Index: vhUnitTest/DOM/PM/KorttekstUtils/Base.cls.xml
===================================================================
diff -u -r60996 -r60999
--- vhUnitTest/DOM/PM/KorttekstUtils/Base.cls.xml	(.../Base.cls.xml)	(revision 60996)
+++ vhUnitTest/DOM/PM/KorttekstUtils/Base.cls.xml	(.../Base.cls.xml)	(revision 60999)
@@ -41,18 +41,9 @@
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
 <Implementation><![CDATA[
 	Set BerekeningSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,##class(DOM.VKP.enu.Klant).Halux(),##class(DOM.common.VanHoeckePersonality).Instance())
-	Do ##class(Tools.Wlip).%New(43).String("BerekeningSpecificatie")
-	Do ##class(Tools.Wlip).%New(43).ObjToText(BerekeningSpecificatie)
 	Set HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant(), BerekeningSpecificatie)
-	Do ##class(Tools.Wlip).%New(43).String("HalffabContext")
-	Do ##class(Tools.Wlip).%New(43).ObjToText(HalffabContext)
 	#dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec = HalffabContext.GeefHalffabSpec()
-	Do ##class(Tools.Wlip).%New(43).String("HalffabSpec")
-	Do ##class(Tools.Wlip).%New(43).ObjToText(HalffabSpec)
-	Do ##class(Tools.Wlip).%New(43).String("BerekenHalffabDetails")
 	Do HalffabSpec.BerekenHalffabDetails(HalffabContext, IngegevenKenmerken)
-	Do ##class(Tools.Wlip).%New(43).String("HalffabContext.HalffabItemsBoom")
-	Do ##class(Tools.Wlip).%New(43).ObjToText(HalffabContext.HalffabItemsBoom)
 	Quit HalffabContext.HalffabItemsBoom
 ]]></Implementation>
 </Method>
@@ -63,18 +54,13 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	While WaardenIterator.HasNext() {
-		//Do ..AssertWaarden(..TAORKenmerken, VerpakkingIterator, ..Enum.KenmerkNaam.VerpakkingType, 20, 20)
-		Do ##class(Tools.Wlip).%New(43).String("In WaardenIterator")
 		#dim Waarde As TECH.String = WaardenIterator.Next()
 		continue:$$$Not(..AssertNodig(PropertyNaam,Waarde))
-		Do ##class(Tools.Wlip).%New(43).String("Waarde: "_Waarde)
-		continue:$$$Not(..AssertNodig(PropertyNaam,Waarde))
+		
 		Set $Property(Kenmerken, PropertyNaam) = Waarde
-		Do ##class(Tools.Wlip).%New(43).String("PreProcessKenmerken")
 		Set Kenmerken = ..PreProcessKenmerken(Kenmerken, Waarde)
-		Do ##class(Tools.Wlip).%New(43).String("VerwachteWaarden.IsDefined")
+		
 		If $$$AssertTrue(..VerwachteWaarden.IsDefined(Waarde),"De waarde "_Waarde_" is niet gecontroleerd") {
-			Do ##class(Tools.Wlip).%New(43).String("AssertKorttekst")
 			Do ..AssertKorttekst(Kenmerken, KorttekstDeelVan, KorttekstDeelTot, ..VerwachteWaarden.GetAt(Waarde))
 			Do ..VerwachteWaarden.RemoveAt(Waarde)
 		}