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 -N -r1.14 -r1.15
--- 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	20 Apr 2004 21:12:23 -0000	1.15
@@ -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