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.3 -r1.2.2.4
--- openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl	22 Nov 2006 22:17:55 -0000	1.2.2.3
+++ openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl	13 Feb 2007 09:40:30 -0000	1.2.2.4
@@ -30,7 +30,7 @@
 
     array set attributes $tag_attributes
 
-    append output "<select name=\"$element(name)\" "
+    append output "<select name=\"$element(name)\" id=\"$element(name)\" "
 
     foreach name [array names attributes] {
         if { [string equal $attributes($name) {}] } {