Index: openacs-4/packages/acs-admin/www/monitor.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/monitor.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/monitor.tcl	7 Aug 2017 23:47:45 -0000	1.4
+++ openacs-4/packages/acs-admin/www/monitor.tcl	26 Apr 2018 08:56:37 -0000	1.5
@@ -12,14 +12,14 @@
 #gets the information in a different way.
 
 set threads [ns_info threads]
-set connections [list]
+set connections {}
 foreach thread $threads {
     if { [lindex $thread 5] eq "ns:connthread" && [llength [lindex $thread 6]] > 0 } {
 	lappend connections [lindex $thread 6]
     }
 }
 
-array set ip_p [list]
+array set ip_p {}
 
 multirow create connections num ip state method url seconds bytes