Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.98.2.13 -r1.98.2.14
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	15 Feb 2022 16:57:58 -0000	1.98.2.13
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	15 Feb 2022 17:00:18 -0000	1.98.2.14
@@ -573,7 +573,6 @@
                u.auth_token,
                mm.rel_id,
                case when (mr.member_state = 'approved') then 't' else 'f' end  as registered_user_p,
-               mr.member_state = 'approved' as registered_user_p,
                mr.member_state
         from users u
              left join group_member_map mm on mm.member_id = u.user_id