Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.472.2.51 -r1.472.2.52
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	6 May 2015 09:26:23 -0000	1.472.2.51
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	12 Aug 2015 15:53:26 -0000	1.472.2.52
@@ -1418,7 +1418,23 @@
     return $object
   }
 
+  #
+  # Define a specialized version of CrItem.set_live_revision updating the item index.
+  #  
 
+  FormPage ad_instproc set_live_revision {-revision_id:required {-publish_status "ready"}} {
+    @param revision_id
+    @param publish_status one of 'live', 'ready' or 'production'
+  } {
+    next
+    
+    # Fetch fresh instance from db so that we have actual values
+    # from the live revision for the update of the item_index.
+
+    set page [::xo::db::CrClass get_instance_from_db -revision_id $revision_id]
+    $page update_item_index
+  }
+
   #
   # helper for nls and lang
   #