Index: DOM/PM/Maatwerk/Calc/HF/HalffabItemsBoom.cls.xml
===================================================================
diff -u -r29059 -r29857
--- DOM/PM/Maatwerk/Calc/HF/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 29857)
@@ -42,11 +42,11 @@
 <FormalSpec>Rol:%String</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
 <Implementation><![CDATA[
-	Set Delimiter = "->"
-	Set HalffabItem = ..HalffabItems.GetAt($Piece(Rol,Delimiter))
+	#Dim Delimiter As TECH.String = "->"
+	#Dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = ..HalffabItems.GetAt($Piece(Rol,Delimiter))
 	If (HalffabItem '= "") {
-		For i=2:1:$Length(Rol,Delimiter)
-		{
+		#dim i As %Integer
+		For i=2:1:$Length(Rol,Delimiter) {
 			Set HalffabItem = HalffabItem.GeefHalffabItem($Piece(Rol,Delimiter,i))
 		}
 	}