Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.166 -r1.167
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	9 Sep 2008 12:45:18 -0000	1.166
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	11 Sep 2008 13:47:14 -0000	1.167
@@ -1330,9 +1330,9 @@
   Page instproc delete-revision {} {
     my instvar revision_id package_id item_id 
     db_1row [my qn get_revision] "select latest_revision,live_revision from cr_items where item_id = $item_id"
-    ::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
+    # do real deletion via package
+    $package_id delete_revision -revision_id $revision_id -item_id $item_id
+    # Take care about UI specific stuff....
     set redirect [my query_parameter "return_url" \
                       [export_vars -base [$package_id url] {{m revisions}}]]
     if {$live_revision == $revision_id} {