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.320 -r1.321 --- openacs-4/packages/xowiki/tcl/package-procs.tcl 21 Jun 2018 09:19:51 -0000 1.320 +++ openacs-4/packages/xowiki/tcl/package-procs.tcl 22 Jun 2018 11:56:11 -0000 1.321 @@ -2417,8 +2417,8 @@ } Package instproc delete_revision {-revision_id:required -item_id:required} { - ::xo::xotcl_object_cache flush ::$item_id - ::xo::xotcl_object_cache flush ::$revision_id + ::xo::xotcl_object_cache flush $item_id + ::xo::xotcl_object_cache flush $revision_id ::xo::db::sql::content_revision del -revision_id $revision_id } @@ -2567,7 +2567,7 @@ :flush_references -item_id $item_id -name $name -parent_id $parent_id :flush_page_fragment_cache -scope agg - ::xo::xotcl_object_cache flush ::$item_id + ::xo::xotcl_object_cache flush $item_id # # Clear potentially cached revisions. The function could be @@ -2577,7 +2577,7 @@ foreach revision_id [::xo::dc list get_revisions { select revision_id from cr_revisions where item_id = :item_id }] { - ::xo::xotcl_object_cache flush ::$revision_id + ::xo::xotcl_object_cache flush $revision_id } }