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.3 -r1.4
--- openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl	15 Dec 2006 00:01:32 -0000	1.3
+++ openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl	10 Jan 2007 21:22:04 -0000	1.4
@@ -33,7 +33,7 @@
     append output "<select name=\"$element(name)\" "
 
     foreach name [array names attributes] {
-        if { [string equal $attributes($name) {}] } {
+        if {$attributes($name) eq {}} {
             append output " $name=\"$name\""
         } else {
             append output " $name=\"$attributes($name)\""