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.28 -r1.29
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	15 Oct 2003 12:35:51 -0000	1.28
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	16 Oct 2003 09:55:55 -0000	1.29
@@ -295,9 +295,9 @@
     switch $type {
       checkbox - radio {
         # There's a 'subst' done on the contents here
-        append output "<img src=\"/resources/acs-subsite/${type}\${checked}.gif\" width=\"13\" height=\"13\">"
+        append output "<img src=\"/resources/acs-subsite/${type}\[ad_decode \$checked \"\" \"\" \"checked\"\].gif\" width=\"13\" height=\"13\">"
         # This is ugly, but it works: Only export the value when we're on a selected option
-        append output "\[ad_decode \$checked \"checked\" \"<input type=\\\"hidden\\\" name=\\\"$element(name)\\\" value=\\\"\$value\\\">\" \"\"\]"
+        append output "\[ad_decode \$checked \"\" \"\" \"<input type=\\\"hidden\\\" name=\\\"$element(name)\\\" value=\\\"\$value\\\">\"]"
       }
       default {
         if { [info exists element(value)] } {