Index: openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl,v
diff -u -r1.2.2.4 -r1.2.2.5
--- openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl	13 Feb 2007 09:40:30 -0000	1.2.2.4
+++ openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl	13 Jul 2007 09:31:35 -0000	1.2.2.5
@@ -27,7 +27,9 @@
     if { [info exists element(html)] } {
         array set attributes $element(html)
     }
-
+    if { [info exists element(values)] } {
+         template::util::list_to_lookup $element(values) values
+    }
     array set attributes $tag_attributes
 
     append output "<select name=\"$element(name)\" id=\"$element(name)\" "