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 -N -r1.72 -r1.73
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	22 Nov 2009 22:48:26 -0000	1.72
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	23 Nov 2009 13:34:00 -0000	1.73
@@ -91,6 +91,7 @@
   Link instproc new_link {} {
     my instvar package_id form
     set page [my page]
+    set nls_language [$page get_nls_language_from_lang [my lang]]
     if {$form ne ""} {
       # use the same instantiate_forms as everywhere; TODO: will go to a different namespace
       set form_id [::xowiki::Weblog instantiate_forms -forms $form -package_id $package_id]
@@ -101,7 +102,7 @@
                     create-new return_url title \
                     [list parent_id [my parent_id]] \
                     [list name [my name]] \
-                    [list nls_language [$page nls_language]]]
+                    [list nls_language $nls_language]]
       }
     }
     if {[$page exists __unresolved_object_type]} {
@@ -119,7 +120,7 @@
       }
     }
     return [$page new_link -name [my name] -title [my label] -parent_id [my parent_id] \
-                -nls_language [$page nls_language] $package_id]
+                -nls_language $nls_language $package_id]
   }
 
   Link instproc render {} {