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.212 -r1.213
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	3 May 2012 11:01:25 -0000	1.212
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	3 May 2012 11:15:26 -0000	1.213
@@ -745,7 +745,7 @@
     return $v
   }
 
-  file instproc get_from_value {value attribute {default ""}} {
+  file instproc get_from_value {value attribute {raw ""}} {
     #
     # The value of of a form entry might be:
     # - an atomic list element
@@ -762,7 +762,7 @@
 	return $($attribute)
       }
     }
-    return $default
+    return [lindex $raw 0]
   }
 
   file instproc convert_to_internal {} {