Index: openacs-4/packages/xowiki/www/admin/list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/list.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/xowiki/www/admin/list.tcl	6 Nov 2008 15:58:44 -0000	1.26
+++ openacs-4/packages/xowiki/www/admin/list.tcl	6 Nov 2008 18:14:38 -0000	1.27
@@ -38,7 +38,10 @@
                       -base [site_node::get_package_url -package_key categories]cadmin/object-map \
                       { { object_id $package_id } {ctx_id $package_id} }]
 
-set actions ""
+set actions [subst {
+  Action new -label "[lang::message::lookup {} categories.Categories Categories]" \
+      -url $category_url
+}]
 foreach type $object_types {
   set link [$package_id make_link -with_entities 0 \
                 $package_id edit-new {object_type $type} return_url autoname]
@@ -48,8 +51,6 @@
         -label "[_ xotcl-core.add [list type [$type pretty_name]]]" \
         -url "$link" \
         -tooltip  "[_ xotcl-core.add_long [list type [$type pretty_name]]]"
-    Action new -label "[lang::message::lookup {} categories.Categories Categories]" \
-        -url $category_url
   }]
 }