Index: vhUnitTest/DOM/VKP/impl/EindPersonalityBepaler/GeefEindPersonality/Test.cls.xml
===================================================================
diff -u -r71855 -r72827
--- vhUnitTest/DOM/VKP/impl/EindPersonalityBepaler/GeefEindPersonality/Test.cls.xml	(.../Test.cls.xml)	(revision 71855)
+++ vhUnitTest/DOM/VKP/impl/EindPersonalityBepaler/GeefEindPersonality/Test.cls.xml	(.../Test.cls.xml)	(revision 72827)
@@ -73,14 +73,22 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Ketting met 3 items (bv Seefelder -&gt; Hein -&gt; Van Hoecke) geeft Hein">
+<Method name="Test: Ketting met 3 items (bv Seefelder -&gt; Hein -&gt; Van Hoecke) geeft Seefelder">
 <Implementation><![CDATA[
 	#dim Ketting As %String = "((13, ""seefelder"", 1234), (11, ""hein_221"", 255024), (1, ""K||7833"", 255025))"
 	
-	Do $$$AssertEquals(..VoerUit(Ketting).GeefID(), ##class(DOM.common.enu.Personality).Hein())
+	Do $$$AssertEquals(..VoerUit(Ketting).GeefID(), ##class(DOM.common.enu.Personality).Seefelder())
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Ketting met 3 items van BlumPolen (bv BlumPLPakdrew -&gt; BlumPL -&gt; Van Hoecke) geeft BlumPL">
+<Implementation><![CDATA[
+	#dim Ketting As %String = "((51, ""BlumPLPakdrew"", 1234), (48, ""blumpl_1234"", 12345), (1, ""K||37598"", 255025))"
+	
+	Do $$$AssertEquals(..VoerUit(Ketting).GeefID(), ##class(DOM.common.enu.Personality).BlumPL())
+]]></Implementation>
+</Method>
+
 <Method name="VoerUit">
 <FormalSpec>Ketting:%String,FallBackKlantId:%String=""</FormalSpec>
 <ReturnType>DOM.common.Personality</ReturnType>
Index: DOM/VKP/impl/EindPersonalityBepaler.cls.xml
===================================================================
diff -u -r71855 -r72827
--- DOM/VKP/impl/EindPersonalityBepaler.cls.xml	(.../EindPersonalityBepaler.cls.xml)	(revision 71855)
+++ DOM/VKP/impl/EindPersonalityBepaler.cls.xml	(.../EindPersonalityBepaler.cls.xml)	(revision 72827)
@@ -26,17 +26,17 @@
 <Implementation><![CDATA[
 	#dim Personality As DOM.common.Personality
 	
-	If (OorsprongKettingString = "") {
+	If (OorsprongKettingString = ""){
 		Set Personality = ..GeefFallBackPersonality(FallBackKlantId)
 	} Else {
 		Try {
 			#dim OorsprongKetting As %List = ..GeefOorsprongKettingLijst(OorsprongKettingString)
 			#dim PersonalityID As %Integer
 			
-			If $ListLength(OorsprongKetting) < 3 {
-				Set PersonalityID = $Piece($List(OorsprongKetting, 1),",", 1)
-			} Else {
+			If (..IsOorsprongKettingVanBlumPolen(OorsprongKetting)) {
 				Set PersonalityID = $Piece($List(OorsprongKetting, $ListLength(OorsprongKetting) - 1),",", 1)
+			} Else {
+				Set PersonalityID = $Piece($List(OorsprongKetting, 1),",", 1)
 			}
 		} Catch {
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -87,6 +87,19 @@
 	Quit ##class(TECH.ListUtils).PiecesToListbuild(OorsprongKettingString, "), (")
 ]]></Implementation>
 </Method>
+
+<Method name="IsOorsprongKettingVanBlumPolen">
+<FormalSpec>OorsprongKetting:%List</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim PersonalityIdBlumPolen As %Integer = ##class(DOM.common.enu.Personality).BlumPL()
+	
+	If (($ListLength(OorsprongKetting) >= 2) && ($Piece($List(OorsprongKetting, $ListLength(OorsprongKetting) - 1),",", 1) = PersonalityIdBlumPolen)) {
+		Quit $$$True
+	}
+	Quit $$$False
+]]></Implementation>
+</Method>
 </Class>