Index: openacs-4/contrib/packages/simulation/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/tcl/Attic/apm-callback-procs.tcl,v
diff -u -r1.14 -r1.14.2.1
--- openacs-4/contrib/packages/simulation/tcl/apm-callback-procs.tcl	26 Jan 2004 14:21:02 -0000	1.14
+++ openacs-4/contrib/packages/simulation/tcl/apm-callback-procs.tcl	17 Mar 2004 12:41:45 -0000	1.14.2.1
@@ -85,7 +85,7 @@
             "City Admins" {sim_set_map_p sim_object_writer}
             "Actors" {}
         } {
-            set permission_group_id [group::new -group_name $group_name]
+            set permission_group_id [group::new -group_name $group_name -context_id $subsite_package_id]
 
             # Make permission group a child of the parent group
             relation_add composition_rel $parent_group_id $permission_group_id
Index: openacs-4/packages/simulation/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/apm-callback-procs.tcl,v
diff -u -r1.14 -r1.14.2.1
--- openacs-4/packages/simulation/tcl/apm-callback-procs.tcl	26 Jan 2004 14:21:02 -0000	1.14
+++ openacs-4/packages/simulation/tcl/apm-callback-procs.tcl	17 Mar 2004 12:41:45 -0000	1.14.2.1
@@ -85,7 +85,7 @@
             "City Admins" {sim_set_map_p sim_object_writer}
             "Actors" {}
         } {
-            set permission_group_id [group::new -group_name $group_name]
+            set permission_group_id [group::new -group_name $group_name -context_id $subsite_package_id]
 
             # Make permission group a child of the parent group
             relation_add composition_rel $parent_group_id $permission_group_id