Index: DOM/PARTIJ/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r50792 -r59308
--- DOM/PARTIJ/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 50792)
+++ DOM/PARTIJ/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 59308)
@@ -54,6 +54,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OudeKK1Subscript">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KlantNummer:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -112,6 +117,7 @@
 			If '..IsNieuwToegevoegd {
 				Set OudeAlgemeneGegevens = ^DKL("K","KL.A",..KlantNummer,0)
 				Set OudeKlantIndex = $PIECE($G(^DKL("K","KL.A",..KlantNummer,0)),"\",50)
+				Set ..OudeKK1Subscript = ^KK1(..KlantNummer)
 			}
 			
 			Set OverTeSlagenPieces = ##class(%ListOfDataTypes).%New()
@@ -142,7 +148,7 @@
 			}
 			
 			/// In KKL moet alles verplaatst worden als naam is gewijzigd
-			If ('..IsNieuwToegevoegd && (..GeefNaam() '= $Piece(OudeAlgemeneGegevens,"\",2))) {
+			If ('..IsNieuwToegevoegd && ((..GeefNaam() '= $Piece(OudeAlgemeneGegevens,"\",2)) || ..OudeKK1Subscript '= OudeKlantIndex)) {
 				Do ..IndexGewijzigd(IndexUpdated, OudeKlantIndex)
 			}
 			
@@ -182,6 +188,9 @@
 	If (KlantIndex '= OudeKlantIndex) {
 		Merge ^KKL(KlantIndex) = ^KKL(OudeKlantIndex) 
 		Kill ^KKL(OudeKlantIndex)
+	} ElseIf (..OudeKK1Subscript '= OudeKlantIndex) {
+		Merge ^KKL(KlantIndex) = ^KKL(..OudeKK1Subscript)
+		Kill ^KKL(..OudeKK1Subscript)
 	}
 ]]></Implementation>
 </Method>