Index: TECH/Persistentie/impl/Repository.cls.xml
===================================================================
diff -u -r3204 -r3395
--- TECH/Persistentie/impl/Repository.cls.xml	(.../Repository.cls.xml)	(revision 3204)
+++ TECH/Persistentie/impl/Repository.cls.xml	(.../Repository.cls.xml)	(revision 3395)
@@ -81,6 +81,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderViaObject">
+<Description>
+Deze method zou ook gewoon "Verwijder()" kunnen genoemd worden, maar we willen aangeven dat dit eigenlijk geen goede manier is om een object 
+te verwijderen, want in memory zal de instance nog effe blijven bestaan. Dat zou kunnen leiden tot inconsistent gebruik van data.
+Daarom de iets minder triviale methodnaam.</Description>
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[
+	#dim ID As %String = Data.%Id()
+	If ID = "" {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Object kan niet verwijderd worden, want heeft nog geen persistent ID."))
+	}
+	Set Data = ""
+	Do ..Gateway.DeleteId(ID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefViaFilter">
 <FormalSpec>Filter:%String,Params:%List</FormalSpec>
 <Private>1</Private>