Index: openacs-4/packages/xotcl-request-monitor/www/throttle-statistics.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/throttle-statistics.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/xotcl-request-monitor/www/throttle-statistics.tcl	30 Dec 2005 00:07:23 -0000	1.2
+++ openacs-4/packages/xotcl-request-monitor/www/throttle-statistics.tcl	17 Sep 2013 19:29:57 -0000	1.2.2.1
@@ -28,7 +28,7 @@
 
 multirow create url_statistics type user user_url time IPadress URL
 foreach l [lsort -index 2 $data] {
-  foreach {type user time IPadress URL} $l break
+  lassign $l type user time IPadress URL
   if {[string match *.* $user]} {
     set user "Anonymous"
     set user_url ""