Index: vhUnitTest/common/TestDataService.cls.xml
===================================================================
diff -u -r1980 -r1982
--- vhUnitTest/common/TestDataService.cls.xml	(.../TestDataService.cls.xml)	(revision 1980)
+++ vhUnitTest/common/TestDataService.cls.xml	(.../TestDataService.cls.xml)	(revision 1982)
@@ -58,6 +58,8 @@
 	Do $$$AssertEquals(GebruikerData.KlantData.PersonalityData.ID,1,"De id is 1")
 	Do $$$AssertEquals(GebruikerData.KlantData.PersonalityData.Code,1,"De code is 1")
 	Do $$$AssertEquals(GebruikerData.KlantData.PersonalityData.Naam,"VAN HOECKE","De naam van de personality")
+	
+	Do Gebruiker.%DeleteId(Gebruiker.%Id())
 ]]></Implementation>
 </Method>
 </Class>