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 -N -r1.39.2.13 -r1.39.2.14
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	12 May 2017 15:50:57 -0000	1.39.2.13
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	12 May 2017 16:00:33 -0000	1.39.2.14
@@ -266,15 +266,21 @@
 
     @error
 } {
-    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 {$subsite_id ne ""} {
+        if {$application_group_id ne ""} {
+            ad_log warning "group::get_id '$group_name': overwriting specified application_group_id by application group of subsite"
+        }
+	set application_group_id [application_group::group_id_from_package_id -package_id $subsite_id]
     } 
     
-    if {([info exists application_group_id] && $application_group_id ne "")} {
+    if {$application_group_id ne ""} {
 	set group_ids [db_list get_group_id_with_application {}]
     } else {
 	set group_ids [db_list get_group_id {}]
     }
+    if {[llength $group_ids] > 1} {
+        ad_log warning "group::get_id for '$group_name' returns more than one value; returning the first one"
+    }
     return [lindex $group_ids 0]
 }