Index: openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl	3 Mar 2009 21:35:54 -0000	1.12
+++ openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl	3 Mar 2009 21:55:57 -0000	1.13
@@ -181,7 +181,7 @@
 ad_proc -public application_group::package_id_from_group_id {
     -group_id:required
 } {
-    return [db_string get {}]
+    return [db_string -cache_key application_group_pid_from_gid_${group_id} get {}]
 }
 
 ad_proc -public application_group::new {
@@ -252,6 +252,8 @@
 
     db_exec_plsql delete {}
 
+    db_flush -cache_key_pattern application_group_*
+
 }
 
 ad_proc -public application_group::closest_ancestor_application_group_site_node {