Index: openacs-4/packages/xotcl-request-monitor/www/users-in-community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/users-in-community.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xotcl-request-monitor/www/users-in-community.tcl	12 Sep 2008 20:12:08 -0000	1.2
+++ openacs-4/packages/xotcl-request-monitor/www/users-in-community.tcl	27 Oct 2014 16:42:03 -0000	1.3
@@ -24,7 +24,7 @@
 
 foreach e [lsort -decreasing -index 0 \
 	       [throttle users in_community $community_id]] {
-  foreach {timestamp requestor} $e break
+  lassign $e timestamp requestor
   if {[info exists listed($requestor)]} continue
   set listed($requestor) 1
   if {[string is integer $requestor]} {