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.20 -r1.20.2.1
--- openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	29 Jul 2013 08:50:26 -0000	1.20
+++ openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	17 Sep 2013 17:49:23 -0000	1.20.2.1
@@ -104,7 +104,7 @@
     if {[nsv_get $array-seen newest]>$last} {
       #my log "--c must check $session_id: [nsv_get $array-seen newest] > $last"
       foreach {key value} [nsv_array get $array] {
-	foreach {timestamp secs user msg color} $value break
+	lassign $value timestamp secs user msg color
 	if {$timestamp > $last} {
 	  my add [Message new -time $secs -user_id $user -msg $msg -color $color]
 	} else {
@@ -122,7 +122,7 @@
   Chat instproc get_all {} {
     my instvar array now session_id
     foreach {key value} [nsv_array get $array] {
-      foreach {timestamp secs user msg color} $value break
+      lassign $value timestamp secs user msg color
       if {[my check_age $key [expr {($now - $timestamp) / 1000}]]} {
 	my add [Message new -time $secs -user_id $user -msg $msg -color $color]
       }