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 -r1.60.2.11 -r1.60.2.12
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	1 Sep 2020 14:32:30 -0000	1.60.2.11
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	1 Sep 2020 17:43:50 -0000	1.60.2.12
@@ -699,9 +699,11 @@
         # will be there for both their roles of member and
         # administrator).
         set result [db_0or1row party_is_member {
-            select exists (select 1 from group_approved_member_map
-                           where member_id = :party_id
-                           and group_id = :group_id)
+            select case when 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
         }]
     }