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.6 -r1.7
--- openacs-4/packages/acs-tcl/tcl/whos-online-procs.tcl	25 Apr 2018 19:23:26 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/whos-online-procs.tcl	9 May 2018 15:33:29 -0000	1.7
@@ -32,7 +32,7 @@
     @author Bjoern Kiesbye
 } { 
     array set last_hit [nsv_array get last_hit]
-    set onliners_out {}
+    set onliners_out [list]
     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 {}
+    set onliners [list]
     set oldtime [expr {[ns_time] - [interval]}]
 
     for { set search [array startsearch last_hit] } { [array anymore last_hit $search] } {} {