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.43 -r1.44
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	18 Apr 2008 20:47:21 -0000	1.43
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	27 May 2008 08:56:30 -0000	1.44
@@ -38,9 +38,11 @@
     set class [self class]::[my type]
     if {[my isclass $class]} {my class $class}
     if {![my exists stripped_name]} {
-      # set stripped name and lang from provided name
+      # set stripped name and lang from provided name or to the default
       my instvar stripped_name lang
-      regexp {^(..):(.*)$} $name _ lang stripped_name
+      if {![regexp {^(..):(.*)$} $name _ lang stripped_name]} {
+        set stripped_name $name; set lang ""
+      }
     }
     if {![my exists label]}      {my label $name}
     if {![my exists folder_id]}  {my folder_id [$page parent_id]}
@@ -53,7 +55,7 @@
     if {![regexp {(.*?)(\#|%23)+(.*)$} [my name] full_name name anchor_tag anchor]} {
       set name [my name]
     }
-    ::xo::db::CrClass lookup -name $name -parent_id [my folder_id]
+    return [::xo::db::CrClass lookup -name $name -parent_id [my folder_id]]
   }
   Link instproc render_found {href label} {
     return "<a [my atts] href='$href'>$label</a>"