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.5 -r1.6
--- openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl	14 May 2007 20:30:22 -0000	1.5
+++ openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl	25 Sep 2007 15:22:36 -0000	1.6
@@ -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)\" "