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.25 -r1.26
--- openacs-4/packages/xowiki/www/admin/list.tcl	10 Oct 2008 18:21:41 -0000	1.25
+++ openacs-4/packages/xowiki/www/admin/list.tcl	6 Nov 2008 15:58:44 -0000	1.26
@@ -34,10 +34,9 @@
 
 set return_url [expr {$per_type ? [export_vars -base [::$package_id url] object_type] :
                       [::$package_id url]}]
-# set up categories
-set category_map_url [export_vars -base \
-              [site_node::get_package_url -package_key categories]cadmin/one-object \
-                          { { object_id $package_id } }]
+set category_url [export_vars \
+                      -base [site_node::get_package_url -package_key categories]cadmin/object-map \
+                      { { object_id $package_id } {ctx_id $package_id} }]
 
 set actions ""
 foreach type $object_types {
@@ -49,6 +48,8 @@
         -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
   }]
 }