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.61 -r1.62
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	7 Feb 2009 14:39:28 -0000	1.61
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	7 Feb 2009 20:35:11 -0000	1.62
@@ -89,7 +89,7 @@
     my instvar package_id
     set page [my page]
     set item_id [my resolve]
-    #my msg "--u resolve [my name] returns $item_id, page=[$page name] vars=[lsort [$page info vars]]"
+    #my msg "--u resolve [my name] returns $item_id, page=[$page name]"
     if {$item_id} {
       $page lappend references [list $item_id [my type]]
       ::xowiki::Package require $package_id
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.328 -r1.329
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	7 Feb 2009 14:39:28 -0000	1.328
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	7 Feb 2009 20:35:11 -0000	1.329
@@ -1158,9 +1158,10 @@
     }
     
     set normalized_name [[my package_id] normalize_name $stripped_name]
-    
+    #my msg "input: [self args]"
     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]
   }
 
@@ -1230,7 +1231,7 @@
         set lang ""
         set stripped_name $link
 
-        regexp {^(..):(.+)$} $link _ lang stripped_name
+        regexp {^(..)[:](.+)$} $link _ lang stripped_name
 	switch -glob -- [::xowiki::guesstype $link] {
 	  text/css {
 	    set link_type css