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.16 -r1.17
--- openacs-4/packages/xowiki/www/admin/index.tcl	29 Jul 2007 14:29:02 -0000	1.16
+++ openacs-4/packages/xowiki/www/admin/index.tcl	29 Jul 2007 14:33:14 -0000	1.17
@@ -41,14 +41,19 @@
                                        -folder_id [::$package_id set folder_id] \
                                        -count 1 -with_subtypes false]]}]} {
     set n -
+    set add_label ""
+    set add_href ""
+  } else {
+    set add_label [_ xotcl-core.add [list type [$object_type pretty_name]]]
+    set add_href  [$package_id make_link $package_id edit-new object_type return_url autoname]
   }
   t1 add \
       -object_type $object_type \
       -instances $n \
       -instances.href [export_vars -base ./list {object_type}] \
-      -edit.href   [$package_id make_link $package_id edit-new object_type return_url autoname] \
+      -edit.href   $add_href \
       -delete.href [export_vars -base delete-type {object_type}] \
-      -edit.title  [_ xotcl-core.add [list type [$object_type pretty_name]]] \
+      -edit.title  $add_label \
       -delete.title  "Delete all [$object_type pretty_plural] of this instance"
 }