Index: openacs-4/packages/spreadsheet/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/spreadsheet/tcl/form-procs.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/spreadsheet/tcl/form-procs.tcl	4 Apr 2011 22:00:51 -0000	1.26
+++ openacs-4/packages/spreadsheet/tcl/form-procs.tcl	4 Apr 2011 22:08:19 -0000	1.27
@@ -671,7 +671,7 @@
     # prepare attributes to process
     set tag_attributes_list [list]
     foreach attribute $attributes_list {
-        if { $attribute ne "selected" && $attribute ne "disabled"} {
+        if { $attribute ne "selected" && $attribute ne "disabled" && $attribute ne "checked" } {
             lappend tag_attributes_list $attribute $attributes_arr($attribute)
         } 
     }
@@ -684,6 +684,9 @@
     } else {
         set name_html ""
     }
+    if { [info exists attributes_arr(checked)] && ![info exists attributes_arr(selected)] } {
+        set attributes_arr(selected) "1"
+    }
     if { [info exists attributes_arr(selected)] && $attributes_arr(selected) == 1 } {
         set option_html "<option[qf_insert_attributes $tag_attributes_list] selected>$name_html</option>\n"
     } elseif { [info exists attributes_arr(disabled)] && $attributes_arr(disabled) == 1 } {