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.315 -r1.316
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	29 Dec 2008 02:26:47 -0000	1.315
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	29 Dec 2008 02:42:40 -0000	1.316
@@ -1202,9 +1202,11 @@
     }
 
     set anchor ""
-    regexp {^([^#]+)(\#|%23)(.*)$} $stripped_name _ stripped_name . anchor
+    regexp {^([^#]*)(\#|%23)(.*)$} $stripped_name _ stripped_name . anchor
 
-    #my msg name=$name,stripped_name=$stripped_name,link_type=$link_type,lang=$lang
+    #my msg name=$name,stripped_name=$stripped_name,link_type=$link_type,lang=$lang,a=$anchor
+    if {$stripped_name eq ""} {regexp {:([^:]+)$} [my name] _ stripped_name}
+
     set normalized_name [::$package_id normalize_name $stripped_name]
 
     if {$lang  eq ""}   {set lang [my lang]}