Index: vhTest/Fake/DOM/common/impl/PersonalityRepository.cls.xml
===================================================================
diff -u -r51519 -r64036
--- vhTest/Fake/DOM/common/impl/PersonalityRepository.cls.xml	(.../PersonalityRepository.cls.xml)	(revision 51519)
+++ vhTest/Fake/DOM/common/impl/PersonalityRepository.cls.xml	(.../PersonalityRepository.cls.xml)	(revision 64036)
@@ -21,6 +21,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderViaObject">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="Bewaar">
 <FormalSpec>Data:TECH.Persistent</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: vhTest/Mock/DOM/common/impl/PersonalityRepository.cls.xml
===================================================================
diff -u -r51519 -r64036
--- vhTest/Mock/DOM/common/impl/PersonalityRepository.cls.xml	(.../PersonalityRepository.cls.xml)	(revision 51519)
+++ vhTest/Mock/DOM/common/impl/PersonalityRepository.cls.xml	(.../PersonalityRepository.cls.xml)	(revision 64036)
@@ -8,6 +8,13 @@
 <Super>DOM.common.impl.PersonalityRepository,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>Gateway:TECH.Persistent.Gateway="",QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BestaatViaID">
 <FormalSpec>ID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -61,6 +68,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderViaObject">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaObject",Data)
+]]></Implementation>
+</Method>
+
 <Method name="ZoekAlle">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekAlle")
Index: DOM/common/impl/PersonalityRepository.cls.xml
===================================================================
diff -u -r51519 -r64036
--- DOM/common/impl/PersonalityRepository.cls.xml	(.../PersonalityRepository.cls.xml)	(revision 51519)
+++ DOM/common/impl/PersonalityRepository.cls.xml	(.../PersonalityRepository.cls.xml)	(revision 64036)
@@ -15,10 +15,18 @@
 	
 	#dim PersonalityIterator As TECH.Iterator = ..ZoekAlle()
 	#dim GevondenPersonality As DOM.common.impl.Personality = ""
-	
 	While PersonalityIterator.HasNext() {
 		#dim Personality As DOM.common.impl.Personality = PersonalityIterator.Next()
-		Set:(Personality.Klant.Nummer=KlantNummer) GevondenPersonality = Personality
+		If (Personality.Klant.Nummer=KlantNummer){
+			if (KlantNummer = 32672){
+				if (Personality.GeefID() = ##class(DOM.common.enu.Personality).HaefeleDE()){
+					Set GevondenPersonality = Personality
+				}
+			} else {
+				Set GevondenPersonality = Personality
+			}
+		}
+				
 	}
 
 	If $$$Not($IsObject(GevondenPersonality)) {