Index: vhUnitTest/DOM/PM/KorttekstUtils/Base.cls.xml
===================================================================
diff -u -r42403 -r60996
--- vhUnitTest/DOM/PM/KorttekstUtils/Base.cls.xml	(.../Base.cls.xml)	(revision 42403)
+++ vhUnitTest/DOM/PM/KorttekstUtils/Base.cls.xml	(.../Base.cls.xml)	(revision 60996)
@@ -41,9 +41,18 @@
 <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>
@@ -54,11 +63,18 @@
 <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)
 		}