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.279.2.10 -r1.279.2.11
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	29 Jul 2014 22:21:08 -0000	1.279.2.10
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	31 Jul 2014 12:30:15 -0000	1.279.2.11
@@ -2249,6 +2249,7 @@
       # nothing to do
       return
     }
+
     set object_type [::xo::db::CrClass get_object_type -item_id $item_id]
     set parent_object_type [::xo::db::CrClass get_object_type -item_id $new_parent_id]
     if {$parent_object_type ni $allowed_parent_types} {
@@ -2263,6 +2264,13 @@
         update cr_child_rels set parent_id = :new_parent_id, relation_tag = :relation_tag 
         where child_id = :item_id
       }
+      ::xo::dc dml update_rels_object {
+        update acs_objects
+        set context_id = :new_parent_id,
+        title = :relation_tag || ': ' || :new_parent_id || ' - '  || :item_id
+        where object_id = (select rel_id from cr_child_rels
+                           where child_id = :item_id)
+      }
     }
     #
     # clear caches