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.60.2.1 -r1.60.2.2
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	22 Feb 2019 12:44:06 -0000	1.60.2.1
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	29 Mar 2019 13:42:43 -0000	1.60.2.2
@@ -1,5 +1,3 @@
-# /packages/acs-subsite/tcl/group-procs.tcl
-
 ad_library {
 
     Procs to manage groups
@@ -606,12 +604,14 @@
     }
 
     if { $group_name eq "" && $group_id eq "" } {
+        ad_log warning "group::member_p: neither group_name nor group_id was provided; returning 0"
         return 0
     }
 
     if { $group_name ne "" } {
         set group_id [group::get_id -group_name $group_name -subsite_id $subsite_id]
         if { $group_id eq "" } {
+            ad_log warning "group::member_p: could not lookup '$group_name' (for subsite_id '$subsite_id'); returning 0"
             return 0
         }
     }
@@ -624,9 +624,9 @@
 }
 
 ad_proc -private group::member_p_not_cached {
-    { -user_id "" }
-    { -group_id "" }
-    {-cascade_p ""}
+    { -user_id }
+    { -group_id }
+    { -cascade_p }
 } {
     Return 1 if the user is a member of the group specified.
     You can specify a group id.