Index: DOM/common/impl/Adres.cls.xml
===================================================================
diff -u -r1075 -r2423
--- DOM/common/impl/Adres.cls.xml	(.../Adres.cls.xml)	(revision 1075)
+++ DOM/common/impl/Adres.cls.xml	(.../Adres.cls.xml)	(revision 2423)
@@ -81,18 +81,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLandNr">
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit ..LandNr
+<Method name="GeefLand">
+<ReturnType>DOM.common.Land</ReturnType>
+<Implementation><![CDATA[
+	Set LocatieAPI = ##class(DOM.DomeinContext).Instance().GeefLocatieAPI()
+	Quit LocatieAPI.GeefLand(..LandNr)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLandCode">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $$LAND^vhRtn1(..GeefLandNr(),1)
-]]></Implementation>
-</Method>
-
 <Method name="GeefTaal">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Taal
@@ -113,7 +109,7 @@
 
 <Method name="ToString">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Naam_", "_..Straat_", "_..Postcode_" "_..Woonplaats_", "_..GeefLandCode()
+<Implementation><![CDATA[	Quit ..Naam_", "_..Straat_", "_..Postcode_" "_..Woonplaats_", "_..GeefLand().GeefCode()
 ]]></Implementation>
 </Method>
 </Class>