Index: vhUnitTest/DOM/VKP/impl/EindPersonalityBepaler/GeefEindPersonality/Test.cls.xml
===================================================================
diff -u -r51277 -r53222
--- vhUnitTest/DOM/VKP/impl/EindPersonalityBepaler/GeefEindPersonality/Test.cls.xml	(.../Test.cls.xml)	(revision 51277)
+++ vhUnitTest/DOM/VKP/impl/EindPersonalityBepaler/GeefEindPersonality/Test.cls.xml	(.../Test.cls.xml)	(revision 53222)
@@ -33,14 +33,22 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Helemaal lege ketting">
+<Method name="Test: Helemaal lege ketting, zonder FallBackKlantId">
 <Implementation><![CDATA[
 	#dim Ketting As %String = ""
 	
 	Do $$$AssertEquals(..VoerUit(Ketting).GeefID(), ##class(DOM.common.enu.Personality).VanHoecke())
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Helemaal lege ketting, met HafeleNL als FallBackKlantId">
+<Implementation><![CDATA[
+	#dim Ketting As %String = ""
+	
+	Do $$$AssertEquals(..VoerUit(Ketting, ##class(DOM.VKP.enu.Klant).HaefeleNederland()).GeefID(), ##class(DOM.common.enu.Personality).HaefeleNL())
+]]></Implementation>
+</Method>
+
 <Method name="Test: Ketting met 1 items (bv Van Hoecke)">
 <Implementation><![CDATA[
 	#dim Ketting As %String = "((1, ""K||7833"", 255025))"
@@ -66,11 +74,11 @@
 </Method>
 
 <Method name="VoerUit">
-<FormalSpec>Ketting:%String</FormalSpec>
+<FormalSpec>Ketting:%String,FallBackKlantId:%String=""</FormalSpec>
 <ReturnType>DOM.common.Personality</ReturnType>
 <Implementation><![CDATA[
 	Set EindPersonalityBepaler = ##class(DOM.VKP.impl.EindPersonalityBepaler).%New()
-	Quit EindPersonalityBepaler.GeefEindPersonality(Ketting)
+	Quit EindPersonalityBepaler.GeefEindPersonality(Ketting, FallBackKlantId)
 ]]></Implementation>
 </Method>
 </Class>