Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml
===================================================================
diff -u -r47154 -r47740
--- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 47154)
+++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 47740)
@@ -223,7 +223,7 @@
 <ReturnType>DOM.common.Adres</ReturnType>
 <Implementation><![CDATA[
 	#dim BezoekAdres As DOM.common.Adres = ""
-	#dim BezoekAdressen As %ListOfObjects = ..GeefAdressen("B")
+	#dim BezoekAdressen As %ListOfObjects = ..GeefAdressenVolgensType("B")
 	If BezoekAdressen.Count() > 0 {
 		Set BezoekAdres = BezoekAdressen.GetAt(1)
 	}
@@ -354,7 +354,7 @@
 <ReturnType>DOM.common.Adres</ReturnType>
 <Implementation><![CDATA[
 	#dim Adres As %String = ""
-	#dim Adressen As %ListOfObjects = ..GeefAdressen("F")
+	#dim Adressen As %ListOfObjects = ..GeefAdressenVolgensType("F")
 	If Adressen.Count() > 0 {
 		Set Adres = Adressen.GetAt(1)
 	}
@@ -394,20 +394,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAdressen">
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="DOM.common.Adres"</ReturnTypeParams>
+<Implementation><![CDATA[
+	Set Adressen = ##class(%ListOfObjects).%New()
+	;Do Adressen.Insert(..GeefAdres())
+	Do ##class(TECH.ListUtils).CopyListOfObjects(..GeefAdressenVolgensType(""),Adressen)
+	Quit Adressen
+]]></Implementation>
+</Method>
+
+<Method name="GeefAdresIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..GeefAdressen())
+]]></Implementation>
+</Method>
+
 <Method name="GeefLeverAdressen">
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="DOM.common.Adres"</ReturnTypeParams>
 <Implementation><![CDATA[
 	Set LeverAdressen = ##class(%ListOfObjects).%New()
-	Do ##class(TECH.ListUtils).CopyListOfObjects(..GeefAdressen("L"),LeverAdressen)
+	Do ##class(TECH.ListUtils).CopyListOfObjects(..GeefAdressenVolgensType("L"),LeverAdressen)
 	If LeverAdressen.Count() = 0 {
-		Do ##class(TECH.ListUtils).CopyListOfObjects(..GeefAdressen(""),LeverAdressen)
+		Do ##class(TECH.ListUtils).CopyListOfObjects(..GeefAdressenVolgensType(""),LeverAdressen)
 	}
 	Quit LeverAdressen
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAdressen">
+<Method name="GeefAdressenVolgensType">
 <Description>
 AdresType 
 - "L" of "" 	= LeverAdres