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.96.2.4 -r1.96.2.5
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	29 Oct 2015 19:43:33 -0000	1.96.2.4
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	11 May 2016 08:59:48 -0000	1.96.2.5
@@ -163,6 +163,7 @@
                   -name [my name] \
                   -nls_language $nls_language]
     }
+
     if {[$page exists __unresolved_object_type]} {
       # get the desired object_type for unresoved entries
       set object_type [$page set __unresolved_object_type]
@@ -177,7 +178,9 @@
         set object_type ::xowiki::Page
       }
     }
-    return [$page new_link -name [my name] -title [my label] -parent_id [my parent_id] \
+    return [$page new_link \
+                {*}[expr {[info exists object_type] ? [list -object_type $object_type] : {}}] \
+                -name [my name] -title [my label] -parent_id [my parent_id] \
                 -nls_language $nls_language $package_id]
   }