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.25 -r1.26
--- openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl	25 Apr 2018 19:23:25 -0000	1.25
+++ openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl	9 May 2018 15:33:28 -0000	1.26
@@ -277,8 +277,8 @@
         }
     }
 
-    array set channel_tag {}
-    array set channel_bugfix_version {}
+    array set channel_tag [list]
+    array set channel_bugfix_version [list]
 
     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 {}
+        set packages [list]
         
         # Checkout from the tag given by channel_tag($channel)
         if { $debug_p } {