Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.112 -r1.113
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	21 Nov 2007 10:22:46 -0000	1.112
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	21 Nov 2007 11:49:45 -0000	1.113
@@ -155,12 +155,16 @@
       set rev_link    [$package_id make_link [self] revisions]
       set edit_link   [$package_id make_link [self] edit return_url]
       set delete_link [$package_id make_link [self] delete return_url]
-      if {[my istype ::xowiki::FormPage]} {
-        set template_id [my page_template]
-        set form      [$package_id pretty_link [$template_id name]]
-        set new_link  [$package_id make_link -link $form $template_id create-new return_url]
+      if {[my exists __link(new)]} {
+        set new_link [my set __link(new)]
       } else {
-        set new_link  [$package_id make_link $package_id edit-new object_type return_url autoname] 
+        if {[my istype ::xowiki::FormPage]} {
+          set template_id [my page_template]
+          set form      [$package_id pretty_link [$template_id name]]
+          set new_link  [$package_id make_link -link $form $template_id create-new return_url]
+        } else {
+          set new_link  [$package_id make_link $package_id edit-new object_type return_url autoname] 
+        }
       }
       set admin_link  [$package_id make_link -privilege admin -link admin/ $package_id {} {}] 
       set index_link  [$package_id make_link -privilege public -link "" $package_id {} {}]