Index: Tools/Wlip.cls.xml
===================================================================
diff -u -r2074 -r2090
--- Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 2074)
+++ Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 2090)
@@ -136,12 +136,13 @@
 <Method name="HalffabItemsBoom">
 <FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <Implementation><![CDATA[
-	Do ..Wlip("Boom",3)
-	#dim It As TECH.Iterator = HalffabItemsBoom.GeefHalffabItemsIterator()
-	While It.HasNext() {
-		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = It.Next()
-		Do ..Wlip($$$TAB_"Rol:"_HalffabItem.GeefVolledigeRolNaam()_", Aantal:"_HalffabItem.Aantal_", Type:"_HalffabItem, 0, 0, 0)
-	}
+	set ItemsWriter = ##class(vhPowerTools.APPS.PM.Maatwerk.ItemsWriter).%New()
+	set IO = ##class(TECH.IO).%New()
+	do IO.Redirect()
+	do ItemsWriter.SchrijfHalffabTijden()
+	do IO.Reset()
+	do ..Stream(IO.GeefStream())
+	quit IO
 ]]></Implementation>
 </Method>