Index: openacs-4/packages/xowiki/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/index.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/xowiki/www/admin/index.tcl	25 May 2007 09:29:59 -0000	1.14
+++ openacs-4/packages/xowiki/www/admin/index.tcl	19 Jun 2007 11:18:37 -0000	1.15
@@ -38,13 +38,14 @@
 foreach object_type $object_types {
 
       set return_url [export_vars -base ${base}admin {object_type}]
+
       t1 add \
           -object_type $object_type \
           -instances [db_list count [$object_type instance_select_query \
                                          -folder_id [::$package_id set folder_id] \
                                          -count 1 -with_subtypes false]] \
           -instances.href [export_vars -base ./list {object_type}] \
-          -edit.href   [export_vars -base $base {{edit-new 1} object_type return_url}] \
+          -edit.href   [$package_id make_link $package_id edit-new object_type return_url autoname] \
           -delete.href [export_vars -base delete-type {object_type}] \
           -edit.title  [_ xotcl-core.add [list type [$object_type pretty_name]]] \
           -delete.title  "Delete all [$object_type pretty_plural] of this instance"