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.15 -r1.60.2.16
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	1 Feb 2021 10:58:35 -0000	1.60.2.15
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	29 Aug 2022 14:17:24 -0000	1.60.2.16
@@ -666,7 +666,7 @@
     set cascade [db_boolean $cascade_p]
     set result [db_string user_is_member {} -default "f"]
 
-    return [template::util::is_true $result]
+    return [string is true -strict $result]
 }
 
 ad_proc -public group::party_member_p {