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.26 -r1.27
--- openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl	9 May 2018 15:33:28 -0000	1.26
+++ openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl	16 May 2018 17:08:51 -0000	1.27
@@ -18,15 +18,13 @@
     }]
 
     if { [llength $sections] > 1 } {
-        set i 0
         lappend section_list [list $package_key $package_key [list "where" "section_name is null"]]
         foreach section $sections {
-            incr i
             if { $section ne "" } {
-                lappend section_list [list "section_$i" $section [list "where" "section_name = '[db_quote $section]'"]]
+                lappend section_list [list $section $section [list "where" "section_name = '[db_quote $section]'"]]
             }
         }
-        lappend section_list [list all "All" [list] ]
+        lappend section_list [list all "All" [list]]
         return [list [list section_name "Section:" $package_key $section_list]]
     } else {
         return ""