Index: openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/Attic/xowiki-portlet-procs.tcl,v
diff -u -r1.66 -r1.67
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	6 Jul 2007 10:14:43 -0000	1.66
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	6 Jul 2007 13:35:12 -0000	1.67
@@ -1112,12 +1112,10 @@
   toc instproc page_name {p} {return [my set page_name($p)]}
 
   toc proc anchor {name} {
-    if {![regexp {^.*:([^:]+)$} $name _ anchor]} {
-      # we might have an unnamed entry, which has no language prefix
-      set anchor $name
-    }
+    # try to strip the language prefix from the name
+    regexp {^.*:([^:]+)$} $name _ name
     # anchor is used between single quotes
-    regsub -all ' $anchor {\'} anchor
+    regsub -all ' $name {\'} anchor
     return $anchor
   }