Index: vhUnitTest/DOM/VKP/impl/DataM/DataMKlantNative/VolgendVrijKlantAdresNr.cls.xml
===================================================================
diff -u -r54151 -r54346
--- vhUnitTest/DOM/VKP/impl/DataM/DataMKlantNative/VolgendVrijKlantAdresNr.cls.xml	(.../VolgendVrijKlantAdresNr.cls.xml)	(revision 54151)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMKlantNative/VolgendVrijKlantAdresNr.cls.xml	(.../VolgendVrijKlantAdresNr.cls.xml)	(revision 54346)
@@ -50,6 +50,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Als er 1 leveradres is en het staat op plaats 1 =&gt; 2">
+<Implementation><![CDATA[
+	Set ^KKL(..Klant.GeefKlantIndexKKL(),"L  1") = "Test leveradres 1"
+	
+	Do $$$AssertEquals(..Klant.GeefVolgendVrijKlantAdresNr(),2)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Als er al leveradressen zijn maar 1 is vrij =&gt; 1">
 <Implementation><![CDATA[
 	Set ^KKL(..Klant.GeefKlantIndexKKL(),"L  2") = "Test leveradres 2"
Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml
===================================================================
diff -u -r54151 -r54346
--- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 54151)
+++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 54346)
@@ -817,7 +817,7 @@
 			Set TweedeAdresKey = $Order(^KKL(..GeefKlantIndexKKL(),EersteAdresKey))
 			Set EersteAdresNummer = $Number($Extract(EersteAdresKey,2,4),0)
 			Set TweedeAdresNummer = $Number($Extract(TweedeAdresKey,2,4),0)
-			If ((TweedeAdresNummer - EersteAdresNummer) > 1) {
+			If (($$$Not($$$HasLength(TweedeAdresKey))) || ((TweedeAdresNummer - EersteAdresNummer) > 1)) {
 				Set VolgendVrijKlantAdresNr = EersteAdresNummer + 1
 				Set IsVolgendVrijKlantAdresNrGevonden = $$$True
 			} ElseIf (TweedeAdresNummer = $Number($Extract(LaasteAdresKey,2,4),0)) {