Index: TECH/Persistent.cls.xml
===================================================================
diff -u -r2195 -r2220
--- TECH/Persistent.cls.xml	(.../Persistent.cls.xml)	(revision 2195)
+++ TECH/Persistent.cls.xml	(.../Persistent.cls.xml)	(revision 2220)
@@ -29,6 +29,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Delete">
+<Implementation><![CDATA[
+	If (..%Id() '= "")
+	{
+		Do ..DeleteId(..%Id())
+	}
+]]></Implementation>
+</Method>
+
 <Method name="DeleteId">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Id:%String</FormalSpec>