Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -r1.50.8.2 -r1.50.8.3
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	3 Oct 2013 09:23:38 -0000	1.50.8.2
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	10 Oct 2013 21:20:10 -0000	1.50.8.3
@@ -1033,7 +1033,7 @@
     }
 
     set output {}
-    if { [string equal $element(mode) "edit"] } {
+    if {$element(mode) eq "edit"} {
 	# edit mode
 	set element(value) $select
 	append output [template::widget::menu $element(name) $element(options) $select attributes $element(mode)]
@@ -1149,7 +1149,7 @@
     set radio_text "<input type=radio name=$element(name)"
 
     foreach name [array names attributes] {
-        if { [string equal $attributes($name) {}] } {
+        if {$attributes($name) eq {}} {
             append radio_text " $name"
         } else {
             append radio_text " $name=\"$attributes($name)\""
@@ -1275,7 +1275,7 @@
     set checkbox_text "<input type=checkbox name=$element(name)"
 
     foreach name [array names attributes] {
-	if { [string equal $attributes($name) {}] } {
+	if {$attributes($name) eq {}} {
 	    append checkbox_text " $name"
 	} else {
 	    append checkbox_text " $name=\"$attributes($name)\""