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.15 -r1.16
--- openacs-4/packages/xowiki/www/admin/list.tcl	25 Jun 2007 12:18:57 -0000	1.15
+++ openacs-4/packages/xowiki/www/admin/list.tcl	2 Aug 2007 12:09:14 -0000	1.16
@@ -39,10 +39,12 @@
 
 set actions ""
 foreach type $object_types {
+  set link [$package_id make_link $package_id edit-new {object_type $type} return_url autoname]
+  if {$link eq ""} continue
   append actions [subst {
     Action new \
         -label "[_ xotcl-core.add [list type [$type pretty_name]]]" \
-        -url [export_vars -base [::$package_id package_url] {{edit-new 1} {object_type $type} return_url}] \
+        -url $link \
         -tooltip  "[_ xotcl-core.add_long [list type [$type pretty_name]]]"
   }]
 }