Index: DOM/AKP/impl/DataM/DataMToelevering.cls.xml
===================================================================
diff -u -r58778 -r72770
--- DOM/AKP/impl/DataM/DataMToelevering.cls.xml	(.../DataMToelevering.cls.xml)	(revision 58778)
+++ DOM/AKP/impl/DataM/DataMToelevering.cls.xml	(.../DataMToelevering.cls.xml)	(revision 72770)
@@ -313,6 +313,11 @@
 <ReturnType>DOM.common.Personality</ReturnType>
 <Implementation><![CDATA[
 	#dim Personality As DOM.common.Personality
+	
+	If $$$Not($IsObject(..EindPersonalityBepaler)) {
+		Set ..EindPersonalityBepaler = ##class(DOM.VKP.impl.EindPersonalityBepaler).%New()
+	}
+	
 	Try {
 		Set Personality = ..EindPersonalityBepaler.GeefEindPersonality(..GeefOorsprongKetting(), ..GeefKlantID())
 	} Catch {
Index: DOM/PARTIJ/impl/LegacyPartijAPI.cls.xml
===================================================================
diff -u -r72768 -r72770
--- DOM/PARTIJ/impl/LegacyPartijAPI.cls.xml	(.../LegacyPartijAPI.cls.xml)	(revision 72768)
+++ DOM/PARTIJ/impl/LegacyPartijAPI.cls.xml	(.../LegacyPartijAPI.cls.xml)	(revision 72770)
@@ -100,6 +100,7 @@
 	If ($ListLength(OorsprongKettingLijst) > 0) {
 		Set EindklantId = $Piece($List(OorsprongKettingLijst, 1),",", 2)
 		Set EindklantId = $Replace(EindklantId, " ", "")
+		Set EindklantId = $Replace(EindklantId, """", "")
 	}
 	
 	Quit EindklantId
Index: vhUnitTest/DOM/PARTIJ/impl/TestLegacyPartijAPI.cls.xml
===================================================================
diff -u -r72768 -r72770
--- vhUnitTest/DOM/PARTIJ/impl/TestLegacyPartijAPI.cls.xml	(.../TestLegacyPartijAPI.cls.xml)	(revision 72768)
+++ vhUnitTest/DOM/PARTIJ/impl/TestLegacyPartijAPI.cls.xml	(.../TestLegacyPartijAPI.cls.xml)	(revision 72770)
@@ -75,7 +75,7 @@
 <Method name="Test: GeefEindklantIdVolgensOorsprongKetting geeft de ID van de EindKlant volgens de OorsprongKetting">
 <Implementation><![CDATA[
 	#dim VerwachteEindKlantId As %String = "IT1613684"
-	#dim OorsprongKetting As %String = "((39, " _ VerwachteEindKlantId _ ", 1103833), (1, ""K||35412"", 1104716))"
+	#dim OorsprongKetting As %String = "((39, """ _ VerwachteEindKlantId _ """, 1103833), (1, ""K||35412"", 1104716))"
 	#dim EindKlantId As %String = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefEindklantIdVolgensOorsprongKetting(OorsprongKetting)
 	
 	Do $$$AssertEquals(EindKlantId, VerwachteEindKlantId)