Index: openacs-4/packages/xowiki/tcl/link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/link-procs.tcl,v
diff -u -r1.58 -r1.59
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	29 Dec 2008 02:26:46 -0000	1.58
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	26 Jan 2009 21:26:07 -0000	1.59
@@ -113,7 +113,7 @@
       }
       set name [my name]
       set title [my label]
-      set new_link  [$package_id make_link $package_id edit-new object_type name title] 
+      set new_link [$page new_link $package_id]
       #set href [export_vars -base [$package_id package_url] \
       #              {{edit-new 1} object_type name title}]