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.28 -r1.29
--- openacs-4/packages/xowiki/www/admin/list.tcl	16 Dec 2008 17:07:04 -0000	1.28
+++ openacs-4/packages/xowiki/www/admin/list.tcl	29 Jan 2009 15:05:18 -0000	1.29
@@ -34,10 +34,9 @@
 
 set return_url [expr {$per_type ? [export_vars -base [::$package_id url] object_type] :
                       [::$package_id url]}]
-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 category_url [export_vars -base manage_categories { { object_id $package_id } }]
+
 set actions [subst {
   Action new -label "[lang::message::lookup {} categories.Categories Categories]" \
       -url $category_url