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 -r1.49 -r1.50
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	27 Sep 2008 17:27:56 -0000	1.49
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	1 Oct 2008 15:02:48 -0000	1.50
@@ -11,7 +11,7 @@
   # generic links
   #
   Class create BaseLink -parameter {
-    cssclass href label title target extra_query_parameter
+    cssclass href label title target extra_query_parameter anchor
   }
 
   BaseLink instproc mk_css_class {-additional {-default ""}} {
@@ -72,9 +72,6 @@
   }
   Link instproc resolve {} {
     #my msg "--lookup of [my name] -page [my page]"
-    if {![regexp {(.*?)(\#|%23)+(.*)$} [my name] full_name name anchor_tag anchor]} {
-      set name [my name]
-    }
     return [::xo::db::CrClass lookup -name $name -parent_id [my parent_id]]
   }
   Link instproc render_found {href label} {
@@ -96,12 +93,7 @@
     if {$item_id} {
       $page lappend references [list $item_id [my type]]
       ::xowiki::Package require $package_id
-	if {![regexp {(.*?)(\#|%23)+(.*)$} [my stripped_name] full_name name anchor_tag anchor]} {
-	    set name [my stripped_name]
-	    set anchor ""
-	}
-	set href [::$package_id pretty_link -lang [my lang] -anchor $anchor $name]
-
+      set href [::$package_id pretty_link -lang [my lang] -anchor [my anchor] [my name]]
       my render_found $href [my label]
     } else {
       $page incr unresolved_references