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.13 -r1.60.2.14
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	27 Sep 2020 11:12:23 -0000	1.60.2.13
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	17 Oct 2020 16:40:23 -0000	1.60.2.14
@@ -706,12 +706,10 @@
         # will be there for both their roles of member and
         # administrator).
         set result [db_0or1row party_is_member {
-            select case when exists
+            select 1 from dual where exists
             (select 1 from group_approved_member_map
              where member_id = :party_id
              and group_id = :group_id)
-            then 1 else 0 end
-            from dual
         }]
     }
     return $result