Index: openacs-4/packages/xowiki/www/admin/set-publish-state.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/set-publish-state.tcl,v
diff -u -N -r1.9.2.1 -r1.9.2.2
--- openacs-4/packages/xowiki/www/admin/set-publish-state.tcl	11 Feb 2014 11:58:20 -0000	1.9.2.1
+++ openacs-4/packages/xowiki/www/admin/set-publish-state.tcl	12 Aug 2015 15:53:26 -0000	1.9.2.2
@@ -9,20 +9,17 @@
   @param query
 } -parameter {
   {-state:required}
-  {-revision_id:required}
+  {-revision_id:integer,required}
   {-return_url "."}
 }
 
-set item_id [xo::dc get_value get_item_id \
-    {select item_id from cr_revisions where revision_id = :revision_id}]
+set page [::xo::db::CrClass get_instance_from_db -revision_id $revision_id]
+$page set_live_revision \
+    -revision_id $revision_id \
+    -publish_status $state
 
-ns_cache flush xotcl_object_cache ::$item_id
 ns_cache flush xotcl_object_cache ::$revision_id
 
-::xo::db::sql::content_item set_live_revision \
-            -revision_id $revision_id \
-            -publish_status $state
-
 if {$state ne "production"} {
   ::xowiki::notification::do_notifications -revision_id $revision_id
   ::xowiki::datasource $revision_id