Index: openacs-4/packages/contacts/tcl/contacts-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs-postgresql.xql,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/contacts/tcl/contacts-procs-postgresql.xql	17 Apr 2006 06:23:00 -0000	1.16
+++ openacs-4/packages/contacts/tcl/contacts-procs-postgresql.xql	3 May 2006 21:27:08 -0000	1.17
@@ -55,7 +55,7 @@
     select 1
       from group_approved_member_map
      where member_id = :party_id
-       and group_id in ('[join [contacts::default_groups -package_id $package_id] "','"]')
+       and group_id in ([template::util::tcl_to_sql_list [contacts::default_groups -package_id $package_id]])
      limit 1
   </querytext>
 </fullquery>