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.20 -r1.39.2.21
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	3 Jul 2017 12:16:18 -0000	1.39.2.20
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	4 Jul 2017 23:25:33 -0000	1.39.2.21
@@ -586,7 +586,7 @@
     return [util_memoize [list group::member_p_not_cached -group_id $group_id -user_id $user_id -cascade_p $cascade_p]]
 }
 
-ad_proc -public group::member_p_not_cached {
+ad_proc -private group::member_p_not_cached {
     { -user_id "" }
     { -group_id "" }
     {-cascade_p ""}