Index: DOM/common/DataM/DataMAbstractLijnIterator.cls.xml
===================================================================
diff -u -r29059 -r36614
--- DOM/common/DataM/DataMAbstractLijnIterator.cls.xml	(.../DataMAbstractLijnIterator.cls.xml)	(revision 29059)
+++ DOM/common/DataM/DataMAbstractLijnIterator.cls.xml	(.../DataMAbstractLijnIterator.cls.xml)	(revision 36614)
@@ -39,7 +39,7 @@
 <Abstract>1</Abstract>
 <FormalSpec>LijnNummer:%String,LijnData:%String</FormalSpec>
 <Private>1</Private>
-<ReturnType>%RegisteredObject</ReturnType>
+<ReturnType>%CacheString</ReturnType>
 </Method>
 
 <Method name="HasNext">
@@ -51,8 +51,8 @@
 <Method name="Next">
 <ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
-	Set HuidigLijnNr = ..VolgendeLijnNr
-	Set HuidigeLijn = ..GeefLijn(HuidigLijnNr)
+	#dim HuidigLijnNr As %Integer = ..VolgendeLijnNr
+	#dim HuidigeLijn As %CacheString= ..GeefLijn(HuidigLijnNr)
 	Do ..BepaalVolgendeLijn(HuidigLijnNr)
 	Quit ..MaakLijn(HuidigLijnNr, HuidigeLijn)
 ]]></Implementation>
@@ -69,14 +69,19 @@
 <FormalSpec>HuidigeLijnNr:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set VolgendeLijnNr = ..GeefVolgendeLijnNummer(HuidigeLijnNr)
+	#dim VolgendeLijnNr As %Integer = ..GeefVolgendeLijnNummer(HuidigeLijnNr)
 	While ((VolgendeLijnNr '= "") && ('$ISVALIDNUM(VolgendeLijnNr) || '..IsGeldigeLijn(..GeefLijn(VolgendeLijnNr))))
 	{
 		Set VolgendeLijnNr = ..GeefVolgendeLijnNummer(VolgendeLijnNr)
 	}
 	Set ..VolgendeLijnNr = VolgendeLijnNr
 ]]></Implementation>
 </Method>
+
+<Method name="Key">
+<Implementation><![CDATA[	Quit ..VolgendeLijnNr
+]]></Implementation>
+</Method>
 </Class>