Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v
diff -u -r1.19.2.6 -r1.19.2.7
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	17 Jan 2006 02:42:04 -0000	1.19.2.6
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	26 Jan 2006 01:10:09 -0000	1.19.2.7
@@ -237,9 +237,9 @@
 
       append output [textarea_internal "$element(id)" attributes $contents]
       if { $htmlarea_p } {
-          append output "<input name='$element(id).format' value='text/html# type='hidden'/>"
+          append output "<input name='$element(id).format' value='text/html' type='hidden'/>"
       } else {
-          append output "<br/>Format: [menu "$element(id).format" [template::util::richtext::format_options] $format attributes]"
+          append output "<br/>Format: [menu $element(id).format [template::util::richtext::format_options] $format attributes]"
       }
           
       # Spell-checker
@@ -368,9 +368,12 @@
     }
 
     set output [textarea_internal $element(id) attributes $contents]
+    if { $htmlarea_p } {
+      append output "<input name='$element(id).format' value='text/html' type='hidden'/>"
+    } else {
+      append output "<br/>Format: [menu $element(id).format [template::util::richtext::format_options] {} {}]"
+    }
 
-    append output "Format: [menu $element(id).format [template::util::richtext::format_options] {} {}]"
-
     if { $htmlarea_p } {
       # Tell the blank-master to include the special stuff 
       # for the richtext widget in the page header