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 -N -r1.4 -r1.5
--- openacs-4/packages/xolp/tcl/xolp-user-procs.tcl	12 Apr 2019 09:37:20 -0000	1.4
+++ openacs-4/packages/xolp/tcl/xolp-user-procs.tcl	12 Apr 2019 11:48:01 -0000	1.5
@@ -52,7 +52,7 @@
     if {$evalscale eq ""} {
       error "There is no evaluation scale associated with context '$iri'."
     }
-    set result [my get_result \
+    set result [:get_result \
         -format "%s" \
         -user_id $user_id \
         -context_iri $context_iri \
@@ -131,7 +131,7 @@
   } {
     set agg [string map -nocase {best max  worst min  average avg} $policy]
     if {$agg ni "min max avg"} {error "Unknown policy."}
-    set competency_dict [my get_competencies -user_id $user_id -policy $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]
     # TODO: Avoid the second "poor mans" union clause
@@ -187,7 +187,7 @@
   } {
       Get competency evaluation
   } {
-    set result [my get_competency_result \
+    set result [:get_competency_result \
         -format "%s" \
         -user_id $user_id \
         -competency_iri $competency_iri \