Index: openacs-4/packages/acs-tcl/tcl/whos-online-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/whos-online-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/whos-online-procs.tcl	7 Aug 2017 23:48:00 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/whos-online-procs.tcl	25 Apr 2018 19:23:26 -0000	1.6
@@ -32,7 +32,7 @@
     @author Bjoern Kiesbye
 } { 
     array set last_hit [nsv_array get last_hit]
-    set onliners_out [list]
+    set onliners_out {}
     set interval 1
     set oldtime [expr {[ns_time] - [interval]}]
 
@@ -135,7 +135,7 @@
     @author Bjoern Kiesbye
 } {
     array set last_hit [nsv_array get last_hit]
-    set onliners [list]
+    set onliners {}
     set oldtime [expr {[ns_time] - [interval]}]
 
     for { set search [array startsearch last_hit] } { [array anymore last_hit $search] } {} {