Index: vhLib/Logging.cls.xml
===================================================================
diff -u -r3440 -r3441
--- vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 3440)
+++ vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 3441)
@@ -374,6 +374,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnDelete">
+<Description>
+Deze method kan beter overschreven worden dan de %OnDelete.
+De OnDelete loopt sowieso in zijn geheel binnen een transactie.
+Wanneer een exceptie optreedt binnen de method zal de delete actie volledig teruggedraaid worden.</Description>
+<Implementation><![CDATA[
+	Do ##class(vhLib.LoggingGetalIndex).VerwijderVoorLogEntryId(..%Id())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^LOG.vhLib.LoggingD</DataLocation>