Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.249 -r1.250
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	26 Aug 2011 16:08:27 -0000	1.249
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	6 Nov 2011 03:13:39 -0000	1.250
@@ -1186,7 +1186,7 @@
 	    }
             default {
               set name file:$(stripped_name)
-              set (link_type) file
+              if {![info exists (link_type)]} {set (link_type) file}
             }
           }
           set item_id [my lookup \