Index: openacs-4/packages/xotcl-core/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/Attic/chat-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	20 Sep 2007 11:57:04 -0000	1.15
+++ openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	27 Sep 2007 10:38:51 -0000	1.16
@@ -162,7 +162,7 @@
     if { [nsv_exists $array-color $user_id] } {
       return
     } else {
-      set colors [parameter::get -parameter UserColors -default [[my info class] set colors]]
+      set colors [::xo::parameter get -parameter UserColors -default [[my info class] set colors]]
       # ns_log notice "getting colors of [my info class] = [info exists colors]"
       set color [lindex $colors [expr { [nsv_get $array-color idx] % [llength $colors] }]]
       ::xo::clusterwide nsv_set $array-color $user_id $color