Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -N -r1.213 -r1.214
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	29 Sep 2017 13:54:16 -0000	1.213
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	14 Nov 2017 15:46:45 -0000	1.214
@@ -848,7 +848,7 @@
     } {
         Approve membership to a community
     } {
-        db_1row select_rel_info {}
+        set rel_id [db_string select_rel_info {}]
 
         db_transaction {
             membership_rel::approve -rel_id $rel_id
Index: openacs-4/packages/dotlrn/tcl/community-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v
diff -u -N -r1.91 -r1.92
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	7 Aug 2017 23:48:09 -0000	1.91
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	14 Nov 2017 15:46:45 -0000	1.92
@@ -4,10 +4,9 @@
 
     <fullquery name="dotlrn_community::membership_approve.select_rel_info">
         <querytext>
-            select *
-            from dotlrn_member_rels_full
-            where user_id = :user_id
-            and community_id = :community_id
+          select rel_id from dotlrn_member_rels_full
+           where user_id      = :user_id
+             and community_id = :community_id
         </querytext>
     </fullquery>