Index: openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl,v
diff -u -r1.10 -r1.10.2.1
--- openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	4 Oct 2008 19:26:51 -0000	1.10
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	17 Sep 2013 19:29:57 -0000	1.10.2.1
@@ -62,7 +62,7 @@
 
 set users [list]
 foreach element [throttle users active -full] {
-  foreach {user_id pa timestamp hits smooth switches} $element break
+  lassign $element user_id pa timestamp hits smooth switches
   if {[string is integer $user_id]} {
     acs_user::get -user_id $user_id -array user
     set user_label "$user(last_name), $user(first_names)"