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.3
--- 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	27 Oct 2014 16:42:03 -0000	1.3
@@ -28,8 +28,8 @@
 
 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
-  if {[string match *.* $user]} {
+  lassign $l type user time IPadress URL
+  if {[string match "*.*" $user]} {
     set user "Anonymous"
     set user_url ""
   } else {