Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v
diff -u -r1.39 -r1.39.2.1
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	29 Oct 2003 20:53:30 -0000	1.39
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	24 Nov 2003 23:32:09 -0000	1.39.2.1
@@ -934,9 +934,9 @@
             if { [info exists values($element_name)] } {
                 if { [info exists af_flag_list(${form_name}__$element_name)] && \
                      [lsearch $af_flag_list(${form_name}__$element_name) multiple] >= 0 } {
-                    template::element set_properties $form_name $element_name -values $values($element_name)
+                    template::element set_values $form_name $element_name $values($element_name)
                 } else {
-                    template::element set_properties $form_name $element_name -value $values($element_name)
+                    template::element set_value $form_name $element_name $values($element_name)
                 }
             }
         }
Index: openacs-4/packages/acs-templating/tcl/element-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/element-procs.tcl,v
diff -u -r1.21 -r1.21.2.1
--- openacs-4/packages/acs-templating/tcl/element-procs.tcl	1 Nov 2003 08:45:37 -0000	1.21
+++ openacs-4/packages/acs-templating/tcl/element-procs.tcl	24 Nov 2003 23:29:58 -0000	1.21.2.1
@@ -269,6 +269,19 @@
   set element(values) [list $value]
 }
 
+ad_proc -public template::element::set_values { form_id element_id values } {
+    Sets the list of values of an element
+
+    @param form_id     The identifier of the form containing the element.
+    @param element_id  The unique identifier of the element.
+    @param values      The list of values to apply
+} {
+
+  get_reference
+
+  set element(values) [list $values]
+}
+
 ad_proc -public template::element::get_value { form_id element_id } {
     Retrieves the current value of an element.  Typically used following
     a valid form submission to retrieve the submitted value.
Index: openacs-4/packages/acs-templating/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/form-procs.tcl,v
diff -u -r1.25 -r1.25.2.1
--- openacs-4/packages/acs-templating/tcl/form-procs.tcl	1 Nov 2003 08:45:37 -0000	1.25
+++ openacs-4/packages/acs-templating/tcl/form-procs.tcl	24 Nov 2003 23:29:58 -0000	1.25.2.1
@@ -745,9 +745,7 @@
   
   foreach name [array names values] {
     
-    template::element set_properties $id $name -value $values($name) 
-    # Resolve single value  / multiple value issues ?
-    template::element set_properties $id $name -values [list $values($name)]
+    template::element set_value $id $name $values($name) 
   }
 }