Index: openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl	25 Apr 2018 19:47:48 -0000	1.10
+++ openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl	9 May 2018 15:33:34 -0000	1.11
@@ -58,7 +58,7 @@
     #
     # truncate tails, if we have VUHs
     #
-    set url_list {}
+    set url_list [list]
     foreach p [split $url /] {
       if {[info exists vuh($p)]} {
         lappend url_list $p
@@ -75,7 +75,7 @@
     }
     set aggr_stat($url) [list $time $cnt]
   }
-  set stat {}
+  set stat [list]
   foreach url [array names aggr_stat] {
     lassign $aggr_stat($url) time cnt
     lappend stat [list $url $time $cnt]
@@ -88,7 +88,7 @@
     lassign $l url time cnt
     set param ""
     regexp {^(.*)([?].*$)} $url _ url param
-    set url_list {}
+    set url_list [list]
     foreach p [split $url /] {
       if {[info exists apps($p)]} {
         if {[llength $url_list]>0} {set url_list [list .../$p]}
@@ -104,7 +104,7 @@
     }
     set aggr_stat($url) [list $time $cnt]
   }
-  set stat {}
+  set stat [list]
   foreach url [array names aggr_stat] {
     lassign $aggr_stat($url) time cnt
     lappend stat [list $url $time $cnt]