Index: zTryout/WV/PM/Test.cls.xml
===================================================================
diff -u -r57310 -r57561
--- zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 57310)
+++ zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 57561)
@@ -71,18 +71,21 @@
 				Write !,PRNr_" : IngegevenKenmerken hebben dezelfde waarde als voorheen."
 			}
 			Else {
-	/*   * /
 				Set:($IsObject(InitialKM)) Verschil = ..VergelijkObjecten(InitialKM, IngegevenKenmerken)
 				Set:(Verschil = "") Verschil = "-"
+				Set:(Verschil [ "GUIKenmerken.CorpusBreedte") Verschil = "-"
+				
+	/*   * /
+				#dim VoegToeIndex As %Boolean = (Verschil '= "-") || ($LL($G(^WV.KenmerkConvert("IdxVerschil", "-"))) < 100)
 				Set ^WV.KenmerkConvert(PRNr, "TEST", $$$If($$$HasLength(ProductSpecificatieID),ProductSpecificatieID,"-")) = $LB(Verschil)
-				Set ^WV.KenmerkConvert("IdxVerschil", Verschil) = $G(^WV.KenmerkConvert("IdxVerschil", Verschil)) _ $LB(PRNr)
+				Set:(VoegToeIndex) ^WV.KenmerkConvert("IdxVerschil", Verschil) = $G(^WV.KenmerkConvert("IdxVerschil", Verschil)) _ $LB(PRNr)
 				Set Teller = $Increment(^WV.KenmerkConvert)
 				
 				;Write !!,$$ObjToText^vhLib(InitialKM)
 				;Write !!,$$ObjToText^vhLib(IngegevenKenmerken)
 	/*  */
 				Set Status = IngegevenKenmerken.%ValidateObject()
-				If ($$$ISOK(Status))
+				If ($$$ISOK(Status)) && (Verschil '= "-")
 				{
 					Set Familie = Product.GeefFamilie()
 					Set Variant = Product.GeefVariant()