Index: openacs-4/packages/xowiki/tcl/dotlrn-portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/dotlrn-portal-procs.tcl,v
diff -u -N -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/xowiki/tcl/dotlrn-portal-procs.tcl	21 Sep 2019 19:03:21 -0000	1.1.2.3
+++ openacs-4/packages/xowiki/tcl/dotlrn-portal-procs.tcl	17 Jan 2023 10:33:56 -0000	1.1.2.4
@@ -87,7 +87,7 @@
       # we have no community_id, get all :community ids, case (4)
       #
       set user_id [::xo::cc user_id]
-      set community_ids [db_list get_memberships {
+      set community_ids [::xo::dc list -prepare integer get_memberships {
         select community_id
         from dotlrn_member_rels_approved
         where user_id = :user_id