Index: Tools/Wlip.cls.xml
===================================================================
diff -u -r2091 -r2098
--- Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 2091)
+++ Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 2098)
@@ -136,13 +136,11 @@
 <Method name="HalffabItemsBoom">
 <FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <Implementation><![CDATA[
-	set ItemsWriter = ##class(vhPowerTools.APPS.PM.Maatwerk.ItemsWriter).%New()
-	set IO = ##class(TECH.IO).%New()
-	do IO.Redirect()
+	#dim CaptureWriter As TECH.Output.impl.CaptureWriter = ##class(TECH.Output.impl.CaptureWriter).%New()
+	set ItemsWriter = ##class(vhPowerTools.APPS.PM.Maatwerk.ItemsWriter).%New(CaptureWriter)
 	do ItemsWriter.SchrijfHalffabTijden(HalffabItemsBoom,0)
-	do IO.Reset()
-	do ..Stream(IO.GeefStream())
-	quit IO
+	do ..Stream(CaptureWriter.GeefStream())
+	quit
 ]]></Implementation>
 </Method>