Index: TECH/Persistent.cls.xml
===================================================================
diff -u -r2230 -r2442
--- TECH/Persistent.cls.xml	(.../Persistent.cls.xml)	(revision 2230)
+++ TECH/Persistent.cls.xml	(.../Persistent.cls.xml)	(revision 2442)
@@ -77,5 +77,13 @@
 	Quit $$$ERROR($$$GeneralError,##class(TECH.ExceptionHandler).Catch().GeefOmschrijving())
 ]]></Implementation>
 </Method>
+
+<Method name="%OnAfterSave">
+<FormalSpec>insert:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 </Export>