Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.136 -r1.137
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	25 Mar 2009 14:01:51 -0000	1.136
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	26 Mar 2009 13:19:31 -0000	1.137
@@ -1416,11 +1416,13 @@
       set values [list]
       foreach i $v {
         if {[catch {lappend values $labels($i)}]} {
-          my msg "can't determine label for value '$i' (values=$v, l=[array names labels])"
-          lappend values $i
+          #my msg "can't determine label for value '$i' (values=$v, l=[array names labels])"
+          set labels($i) $i
         }
+        set href [$package_id pretty_link $i]
+        lappend hrefs "<a href='$href'>$labels($i)</a>"
       }
-      return [join $values {, }]
+      return [join $hrefs {, }]
     } else {
       foreach o [my set options] {
         foreach {label value} $o break