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.62 -r1.63
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	7 Feb 2009 20:35:11 -0000	1.62
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	9 Feb 2009 20:29:22 -0000	1.63
@@ -111,9 +111,7 @@
 	  set object_type ::xowiki::Page
 	}
       }
-      set name [my name]
-      set title [my label]
-      set new_link [$page new_link $package_id]
+      set new_link [$page new_link -name [my name] -title [my label] $package_id]
       #set href [export_vars -base [$package_id package_url] \
       #              {{edit-new 1} object_type name title}]