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.17
--- 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	28 Aug 2008 19:23:39 -0000	1.17
@@ -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
+    }
   }