Index: openacs-4/packages/xolp/tcl/xolp-user-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xolp/tcl/xolp-user-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/xolp/tcl/xolp-user-procs.tcl	12 Sep 2022 14:24:07 -0000	1.7
+++ openacs-4/packages/xolp/tcl/xolp-user-procs.tcl	25 Oct 2022 05:28:42 -0000	1.8
@@ -135,7 +135,7 @@
     if {$agg ni "min max avg"} {error "Unknown policy."}
     set competency_dict [:get_competencies -user_id $user_id -policy $policy]
     set competency_iris [dict keys $competency_dict]
-    set quoted_list [::xolp::util::ltransform -prefix "'" -suffix "'" $competency_iris]
+    set quoted_list [ns_dbquotelist $competency_iris]
     # TODO: Avoid the second "poor mans" union clause
     set sql "
       WITH RECURSIVE competency_hierarchy AS (