Index: openacs-4/packages/acs-templating/tcl/element-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/element-procs.tcl,v
diff -u -N -r1.32.2.6 -r1.32.2.7
--- openacs-4/packages/acs-templating/tcl/element-procs.tcl	13 Oct 2013 10:03:24 -0000	1.32.2.6
+++ openacs-4/packages/acs-templating/tcl/element-procs.tcl	13 Oct 2013 12:03:13 -0000	1.32.2.7
@@ -197,6 +197,7 @@
 
   # If the widget is a checkbox or radio widget, set attributes
     if { $opts(widget) eq "radio" || $opts(widget) eq "checkbox" } {
+
         # If there's no legend text, no point to generate the fieldset
         if { ![info exists opts(legendtext)] } {
             if { [info exists opts(legend)] || [info exists opts(fieldset)] } {
@@ -746,7 +747,12 @@
   upvar opts opts
   # opts(values) is always defined, init to "" from template::element::defaults
   if { [info exists opts(value)] && [llength $opts(values)] == 0 } {
-    if { $opts(value) eq "" } {
+      #
+      # GN: the following test is broken, since "opts(value)" is never
+      # empty; ... but changing this to a comparison with $opts(value)
+      # breaks eg ad_form.
+      #
+    if { [string equal opts(value) {}] } {
       set opts(values) [list]
     } else {
       set opts(values) [list $opts(value)]