Index: DOM/VKP/impl/KlantDataFactory.cls.xml
===================================================================
diff -u -r35990 -r35997
--- DOM/VKP/impl/KlantDataFactory.cls.xml	(.../KlantDataFactory.cls.xml)	(revision 35990)
+++ DOM/VKP/impl/KlantDataFactory.cls.xml	(.../KlantDataFactory.cls.xml)	(revision 35997)
@@ -37,8 +37,11 @@
 	}
 	
 	#dim Personality As DOM.common.Personality = ##class(DOM.common.impl.Personality).OpenId(PersonalityEnum)
+	#dim KlantData As DOM.VKP.impl.KlantData = ..ObjectAPI.New("DOM.VKP.impl." _ Personality.GeefCode() _ "KlantData")
 	
-	Quit ..ObjectAPI.New("DOM.VKP.impl." _ Personality.GeefCode() _ "KlantData")
+	Set KlantData.Personality = PersonalityEnum
+	
+	Quit KlantData
 ]]></Implementation>
 </Method>
 </Class>