Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v
diff -u -r1.38 -r1.38.2.1
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	8 Dec 2012 18:20:36 -0000	1.38
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	27 Aug 2013 12:20:36 -0000	1.38.2.1
@@ -262,11 +262,11 @@
 
     @error
 } {
-    if {[exists_and_not_null subsite_id]} {
+    if {([info exists subsite_id] && $subsite_id ne "")} {
 	set application_group_id [application_group::group_id_from_package_id -package_id [ad_conn subsite_id]]
     } 
     
-    if {[exists_and_not_null application_group_id]} {
+    if {([info exists application_group_id] && $application_group_id ne "")} {
 	set group_ids [db_list get_group_id_with_application {}]
     } else {
 	set group_ids [db_list get_group_id {}]