Index: openacs-4/packages/xotcl-request-monitor/www/last100.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/last100.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/xotcl-request-monitor/www/last100.tcl	12 Sep 2008 20:12:08 -0000	1.6
+++ openacs-4/packages/xotcl-request-monitor/www/last100.tcl	27 Oct 2014 16:42:02 -0000	1.7
@@ -32,11 +32,11 @@
       AnchorField url  -label "URL" -orderby url
     }
 
-foreach {att order} [split $orderby ,] break
+lassign [split $orderby ,] att order
 t1 orderby -order [expr {$order eq "asc" ? "increasing" : "decreasing"}] $att
 
 foreach l $stat {
-  foreach {timestamp c url ms requestor} $l break
+  lassign $l timestamp c url ms requestor
   if {[string is integer $requestor]} {
     acs_user::get -user_id $requestor -array user
     set user_string "$user(first_names) $user(last_name)"