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.39.2.16 -r1.39.2.17
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	19 May 2017 16:25:00 -0000	1.39.2.16
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	27 Jun 2017 16:46:21 -0000	1.39.2.17
@@ -638,11 +638,12 @@
     if { $group_id eq "" } {
         set result 0
     } else {
-        set result [db_string party_is_member {
+        set result [db_0or1row party_is_member {
             select 1 from group_approved_member_map
             where member_id = :party_id
             and group_id = :group_id
-        } -default 0]
+            limit 1
+        }]
     }
     return $result
 }