Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.126 -r1.127
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	5 Sep 2008 17:18:23 -0000	1.126
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	11 Sep 2008 13:47:14 -0000	1.127
@@ -923,6 +923,12 @@
     ::xo::clusterwide xo::cache_flush_all xowiki_cache link-*-$name-$parent_id
   }
 
+  Package instproc delete_revision {-revision_id:required -item_id:required} {
+    ::xo::clusterwide ns_cache flush xotcl_object_cache ::$item_id
+    ::xo::clusterwide ns_cache flush xotcl_object_cache ::$revision_id
+    ::xo::db::sql::content_revision del -revision_id $revision_id
+  }
+
   Package instproc delete {-item_id -name} {
     #
     # This delete method does not require an instanantiated object,