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 -N -r1.65 -r1.66
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	10 Mar 2005 15:22:42 -0000	1.65
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	13 Mar 2005 22:52:16 -0000	1.66
@@ -131,6 +131,10 @@
         ns_mutex unlock [nsv_get site_nodes_mutex mutex]
     }
 
+    # update context_id
+    set context_id [site_node::closest_ancestor_package -node_id $node_id]
+    db_dml update_package_context_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]
 
 }
Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql	12 Mar 2004 18:48:55 -0000	1.10
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql	13 Mar 2005 22:52:16 -0000	1.11
@@ -17,6 +17,15 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="site_node::mount.update_package_context_id">
+        <querytext>
+            update acs_objects
+            set context_id = :context_id
+            where object_id = :object_id
+        </querytext>
+    </fullquery>
+
+
     <fullquery name="site_node::rename.rename_node">
         <querytext>
             update site_nodes