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.147 -r1.148
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	9 Apr 2009 11:30:28 -0000	1.147
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	11 Apr 2009 16:26:47 -0000	1.148
@@ -1442,9 +1442,9 @@
         set href [$package_id pretty_link $value]
         set labels($value) "<a href='$href'>$label</a>"
       }
-      set values [list]
+      set hrefs [list]
       foreach i $v {
-        if {[catch {lappend values $labels($i)}]} {
+        if {![info exists labels($i)]} {
           #my msg "can't determine label for value '$i' (values=$v, l=[array names labels])"
           set labels($i) $i
         }