Index: DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem.cls.xml
===================================================================
diff -u -r29059 -r30112
--- DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem.cls.xml	(.../SamengesteldHalffabItem.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem.cls.xml	(.../SamengesteldHalffabItem.cls.xml)	(revision 30112)
@@ -28,7 +28,7 @@
 <Method name="Accept">
 <Description>
 </Description>
-<FormalSpec>Visitor:HalffabItemVisitor</FormalSpec>
+<FormalSpec>Visitor:DOM.PM.Maatwerk.Calc.HF.HalffabItemVisitor</FormalSpec>
 <Implementation><![CDATA[	Do Visitor.VerwerkSamengesteldHalffabItem(##this)
 ]]></Implementation>
 </Method>
@@ -37,12 +37,14 @@
 <FormalSpec>Rol:%String</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
 <Implementation><![CDATA[
-	Set Delimiter = "->"
-	Set HalffabItem = ..HalffabItems.GetAt($Piece(Rol,Delimiter))
-	For i=2:1:$Length(Rol,Delimiter)
-	{
-		Set HalffabItem = HalffabItem.GeefHalffabItem($Piece(Rol,Delimiter,i))
+	#dim Delimiter As TECH.String = "->"
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = ..HalffabItems.GetAt($Piece(Rol, Delimiter))
+	#dim Counter As %Integer
+	
+	For Counter=2:1:$Length(Rol, Delimiter) {
+		Set HalffabItem = HalffabItem.GeefHalffabItem($Piece(Rol, Delimiter, Counter))
 	}
+	
 	Quit HalffabItem
 ]]></Implementation>
 </Method>