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.16 -r1.16.2.1
--- openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	27 Sep 2007 10:38:51 -0000	1.16
+++ openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	21 Nov 2008 13:26:32 -0000	1.16.2.1
@@ -29,7 +29,9 @@
     }
     if {![nsv_exists $array-seen newest]} {::xo::clusterwide nsv_set $array-seen newest 0}
     if {![nsv_exists $array-color idx]}   {::xo::clusterwide nsv_set $array-color idx 0}
-    my init_user_color
+    if {[my user_id] != 0 || [my session_id] != 0} {
+      my init_user_color
+    }
   }