Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.368 -r1.369
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	5 Nov 2009 12:34:16 -0000	1.368
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	6 Nov 2009 12:26:18 -0000	1.369
@@ -1440,8 +1440,8 @@
     # set name file:$stripped_name
     #  } 
 
-
     array set "" [my get_anchor_and_query $link]
+    if {$label eq $arg} {set label $(link)}
 
     if {[regexp {^:(..):(.+)$} $(link) _ lang stripped_name]} {
       # language link (it starts with a ':')
@@ -1450,9 +1450,8 @@
     } else {
       array set "" [my item_ref -default_lang [my lang] -parent_id [my parent_id] $(link)]
     }
-
+    #my msg [array get ""]
     set item_name [string trimleft $(prefix):$(stripped_name) :]
-    if {$label eq $arg} {set label $item_name}
 
     Link create [self]::link \
         -page [self] \