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.51.4.2 -r1.51.4.3
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	5 Oct 2013 12:55:10 -0000	1.51.4.2
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	10 Oct 2013 21:20:10 -0000	1.51.4.3
@@ -228,7 +228,7 @@
       
       set attributes(id) "richtext__$element(form_id)__$element(id)"
       
-      if { [exists_and_not_null element(htmlarea_p)] } {
+      if { ([info exists element(htmlarea_p)] && $element(htmlarea_p) ne "") } {
           set htmlarea_p [template::util::is_true $element(htmlarea_p)]
       } else {
           set htmlarea_p [parameter::get \
@@ -451,7 +451,7 @@
             }
         }
 
-        if { [exists_and_not_null element(htmlarea_p)] } {
+        if { ([info exists element(htmlarea_p)] && $element(htmlarea_p) ne "") } {
             set htmlarea_p [template::util::is_true $element(htmlarea_p)]
         } else {
             set htmlarea_p [parameter::get \