Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.76 -r1.77
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	28 Oct 2006 19:34:27 -0000	1.76
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	8 Dec 2006 14:46:00 -0000	1.77
@@ -1179,10 +1179,17 @@
     if { [empty_string_p $package_id] } {
         set package_id [ad_conn package_id]
     }
-    db_dml app_rename {
-        update apm_packages
-        set instance_name = :instance_name
-        where package_id = :package_id
+    db_transaction {
+      db_dml app_rename {
+        update apm_packages 
+           set instance_name = :instance_name
+           where package_id = :package_id
+      }
+      db_dml rename_acs_object {
+        update acs_objects
+          set title = :instance_name
+          where object_id = :package_id
+      }
     }
     foreach node_id [db_list nodes_to_sync {}] {
         site_node::update_cache -node_id $node_id