Index: openacs-4/packages/xotcl-request-monitor/www/last-requests.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/last-requests.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/xotcl-request-monitor/www/last-requests.tcl	12 Sep 2008 20:12:08 -0000	1.6
+++ openacs-4/packages/xotcl-request-monitor/www/last-requests.tcl	27 Oct 2014 16:42:02 -0000	1.7
@@ -55,12 +55,12 @@
 
 set all [expr {!$all}]
 set requests [throttle users last_requests $request_key]
-#set last_timestamp [lindex [lindex $requests end] 0]
+#set last_timestamp [lindex $requests end 0]
 set last_timestamp [clock seconds]
 
 set hidden 0
 foreach element [lsort -index 0 -decreasing $requests] {
-  foreach {timestamp url pa} $element break
+  lassign $element timestamp url pa
   if {!$all} {
     set exclude 0
     foreach pattern $hide_patterns {
@@ -73,10 +73,10 @@
     if {$exclude} continue
   }
   set diff [expr {$last_timestamp-$timestamp}]
-  set url [string_truncate_middle -len 70 $url]
+  set url_label [string_truncate_middle -len 70 $url]
   t1 add       -time [clock format $timestamp] \
 	       -timediff $diff \
-      	       -url $url \
+      	       -url $url_label \
       	       -url.href "[ad_url]$url" \
 	       -pa $pa
 }