Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v
diff -u -r1.54 -r1.55
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	4 Mar 2004 14:52:49 -0000	1.54
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	12 Mar 2004 18:48:55 -0000	1.55
@@ -48,6 +48,7 @@
     mount object at site node
 } {
     db_dml mount_object {}
+    db_dml update_object_package_id {}
     update_cache -node_id $node_id
 
     apm_invoke_callback_proc -package_key [apm_package_key_from_id $object_id] -type "after-mount" -arg_list [list node_id $node_id package_id $object_id]
@@ -64,6 +65,7 @@
     set child_node_ids [get_children -all -node_id $node_id -element node_id]
 
     db_dml rename_node {}
+    db_dml update_object_title {}
 
     update_cache -sync_children -node_id $node_id
 }
@@ -151,6 +153,7 @@
     apm_invoke_callback_proc -package_key [apm_package_key_from_id $package_id] -type before-unmount -arg_list [list package_id $package_id node_id $node_id]
 
     db_dml unmount_object {}
+    db_dml update_object_package_id {}
     update_cache -node_id $node_id
 }