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 -N -r1.335 -r1.336
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	20 Feb 2009 08:00:49 -0000	1.335
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	6 Mar 2009 09:03:58 -0000	1.336
@@ -1176,7 +1176,6 @@
     regexp {^([^#]*)(\#|%23)(.*)$} $stripped_name _ stripped_name . anchor
     # remove query part
     regexp {^(.*)[?]([^?]+)$} $stripped_name _ stripped_name query
-    
 
     # if we have an empty stripped name, it is a link to the current
     # page, maybe in a different language
@@ -1189,7 +1188,7 @@
     if {$lang  eq ""}   {set lang [my lang]}
     if {$name  eq ""}   {set name $lang:$normalized_name}
     #my msg result=[list name $name lang $lang normalized_name $normalized_name anchor $anchor]
-    return [list name $name lang $lang normalized_name $normalized_name anchor $anchor]
+    return [list name $name lang $lang normalized_name $normalized_name anchor $anchor query $query]
   }
 
   Page instproc create_link {arg} {
@@ -1290,7 +1289,8 @@
 
     Link create [self]::link \
         -page [self] \
-        -type $link_type [list -name $(name)] -lang $(lang) [list -anchor $(anchor)] \
+        -type $link_type [list -name $(name)] -lang $(lang) \
+	[list -anchor $(anchor)] [list -query $(query)] \
         [list -stripped_name $(normalized_name)] [list -label $label] \
         -parent_id $parent_id -package_id $package_id