Index: openacs-4/packages/xowiki/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/chat-procs.tcl,v
diff -u -r1.54.2.21 -r1.54.2.22
--- openacs-4/packages/xowiki/tcl/chat-procs.tcl	3 Oct 2021 17:38:49 -0000	1.54.2.21
+++ openacs-4/packages/xowiki/tcl/chat-procs.tcl	15 Nov 2021 17:23:27 -0000	1.54.2.22
@@ -231,7 +231,7 @@
     if { [nsv_exists ${:array}-color ${:user_id}] } {
       return
     } else {
-      set colors [::xo::parameter get -parameter UserColors -default [[:info class] set colors]]
+      set colors [parameter::get -parameter UserColors -default [[:info class] set colors]]
       # ns_log notice "getting colors of [:info class] = [info exists colors]"
       set color [lindex $colors [expr { [nsv_get ${:array}-color idx] % [llength $colors] }]]
       ::acs::clusterwide nsv_set ${:array}-color ${:user_id} $color