Index: DOM/PM/Maatwerk/Calc/Common/impl/IKIDHash.cls.xml
===================================================================
diff -u -r1809 -r1818
--- DOM/PM/Maatwerk/Calc/Common/impl/IKIDHash.cls.xml	(.../IKIDHash.cls.xml)	(revision 1809)
+++ DOM/PM/Maatwerk/Calc/Common/impl/IKIDHash.cls.xml	(.../IKIDHash.cls.xml)	(revision 1818)
@@ -12,12 +12,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="CanonischeWaarden">
-<Type>DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashData</Type>
-<Collection>array</Collection>
-<Private>1</Private>
-</Property>
-
 <Property name="Hash">
 <Type>%Binary</Type>
 <Private>1</Private>
@@ -53,31 +47,40 @@
 ]]></Implementation>
 </Method>
 
-<Method name="CanonischeWaardeBestaat">
+<Method name="GeefIKIDHashData">
 <FormalSpec>CanonischeWaarde:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..CanonischeWaarden.IsDefined(CanonischeWaarde)
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashData</ReturnType>
+<Implementation><![CDATA[
+	Set IKIDHashData = ""
+	Set Iterator = ##class(TECH.ListIterator).%New(..OverflowIDs)
+	While ('$IsObject(IKIDHashData)) && (Iterator.HasNext())
+	{
+		Set IKIDHashDataNext = Iterator.Next()
+		If (IKIDHashDataNext.GeefCanonischeWaarde() = CanonischeWaarde)
+		{
+			Set IKIDHashData = IKIDHashDataNext
+		}
+	}
+	Quit IKIDHashData
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToe">
 <FormalSpec>CanonischeWaarde:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IKID</ReturnType>
 <Implementation><![CDATA[
-	Set IKID = ""
-	If ('..CanonischeWaardeBestaat(CanonischeWaarde))
+
+	Set IKIDHashData = ..GeefIKIDHashData(CanonischeWaarde)
+	If ('$IsObject(IKIDHashData))
 	{
 		Set OverflowID = ..OverflowIDs.Count()+1
 		Set IKID = ##class(DOM.PM.Maatwerk.Calc.Common.IKID).%New(..Hash,OverflowID)
 		Set IKIDHashData = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashData).%New(IKID,CanonischeWaarde,IngegevenKenmerken)
 		Do ..OverflowIDs.SetAt(IKIDHashData,OverflowID)
-		Do ..CanonischeWaarden.SetAt(IKIDHashData,CanonischeWaarde)
 	}
-	Else
-	{
-		Set IKID = ..CanonischeWaarden.GetAt(CanonischeWaarde).GeefIKID()
-	}
-	Quit IKID
+	
+	Quit IKIDHashData.GeefIKID()
 ]]></Implementation>
 </Method>