Index: openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl	23 Feb 2018 11:18:59 -0000	1.24
+++ openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl	25 Apr 2018 19:23:25 -0000	1.25
@@ -277,8 +277,8 @@
         }
     }
 
-    array set channel_tag [list]
-    array set channel_bugfix_version [list]
+    array set channel_tag {}
+    array set channel_bugfix_version {}
 
     for { } { $i < [llength $lines] } { incr i } {
         # Tag lines have the form   tag: cvs-version
@@ -338,7 +338,7 @@
 
         # Store the list of packages we've seen for this channel, so we don't include the same package twice
         # Seems odd, but we have to do this given the forked packages sitting in /contrib
-        set packages [list]
+        set packages {}
         
         # Checkout from the tag given by channel_tag($channel)
         if { $debug_p } {