Index: vhUnitTest/DOM/common/Locatie/impl/LandRepository/Test.cls.xml
===================================================================
diff -u -r38535 -r39059
--- vhUnitTest/DOM/common/Locatie/impl/LandRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 38535)
+++ vhUnitTest/DOM/common/Locatie/impl/LandRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 39059)
@@ -111,6 +111,15 @@
 	#dim Land As DOM.common.Land = ..LandRepository.GeefViaLandCodeIso3("XXX")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: GeefViaLandCodeIso3 leeg">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen land gevonden met id ''")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException",Substrings))
+	
+	#dim Land As DOM.common.Land = ..LandRepository.GeefViaLandCodeIso3("")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/common/Locatie/impl/LandRepository.cls.xml
===================================================================
diff -u -r38535 -r39059
--- DOM/common/Locatie/impl/LandRepository.cls.xml	(.../LandRepository.cls.xml)	(revision 38535)
+++ DOM/common/Locatie/impl/LandRepository.cls.xml	(.../LandRepository.cls.xml)	(revision 39059)
@@ -63,6 +63,8 @@
 <FormalSpec>LandCodeIso3:%String</FormalSpec>
 <ReturnType>DOM.common.Land</ReturnType>
 <Implementation><![CDATA[
+	Quit:LandCodeIso3="" ..GeefViaID("")
+	
 	#dim LandID As %String = ""
 	#dim LandCode As %String = ""