Index: openacs-4/contrib/packages/simulation/tcl/simulation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/tcl/Attic/simulation-procs.tcl,v
diff -u -N -r1.20 -r1.21
--- openacs-4/contrib/packages/simulation/tcl/simulation-procs.tcl	6 Jan 2004 16:09:33 -0000	1.20
+++ openacs-4/contrib/packages/simulation/tcl/simulation-procs.tcl	6 Jan 2004 18:36:27 -0000	1.21
@@ -178,7 +178,8 @@
     @author Peter Marklund
 } {
     # Lookup the application group of the subsite
-    set subsite_group_id [subsite_group_id]
+    set subsite_group_id [application_group::group_id_from_package_id \
+                          -package_id [ad_conn subsite_id]]
 
     # Get all groups related to (children of) the subsite group (only one level down)
     set enrollment_clause [ad_decode $enrolled_only_p "0" "" "and  exists (select 1