Index: openacs-4/packages/xowiki/www/admin/list.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/list.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xowiki/www/admin/list.adp	5 Oct 2008 01:50:44 -0000	1.2
+++ openacs-4/packages/xowiki/www/admin/list.adp	6 Nov 2008 18:14:38 -0000	1.3
@@ -19,7 +19,6 @@
 </style>
 </property>
 
-<a href="@category_map_url@" class="action_link">Site-Wide Categories...</a>
 <a href="./?rss" class="rss">RSS</a>          
 @t1;noquote@
 
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
   }]
 }