Index: DOM/CRM/impl/DataM/DataMKlantIterator.cls.xml
===================================================================
diff -u -r903 -r994
--- DOM/CRM/impl/DataM/DataMKlantIterator.cls.xml	(.../DataMKlantIterator.cls.xml)	(revision 903)
+++ DOM/CRM/impl/DataM/DataMKlantIterator.cls.xml	(.../DataMKlantIterator.cls.xml)	(revision 994)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-03 11:50:24">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-30 16:30:16">
 <Class name="DOM.CRM.impl.DataM.DataMKlantIterator">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Iterator,%RegisteredObject</Super>
-<TimeChanged>62153,42692.555347</TimeChanged>
+<TimeChanged>62180,59416.167706</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Klant">
@@ -43,19 +43,20 @@
 <Method name="Next">
 <ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
+	Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
 	
 	If ..KlantNr=""
 	{
 		Set ..Klant=""
 	}
 	Else
  	{
-		Set ..Klant = ##class(DOM.CRM.impl.KlantImpl).%New(..KlantNr)
+		Set ..Klant = KlantAPI.GeefKlant(..KlantNr)
 		Do ..LookupNext()
  	}
 	Quit ..Klant
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2956615353"/>
+<Checksum value="70197730"/>
 </Export>