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.66.2.6 -r1.66.2.7
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	28 Oct 2020 15:39:19 -0000	1.66.2.6
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	16 Jan 2022 15:31:23 -0000	1.66.2.7
@@ -75,8 +75,8 @@
     upvar 2 $message_ref message $value_ref richtext_list
     lassign $richtext_list contents format
 
-    if { $contents ne "" && [lsearch -exact [template::util::richtext::formats] $format] == -1 } {
-        set message "Invalid format, '[ns_quotehtml $format]'."
+    if { $format ni [template::util::richtext::formats] } {
+        set message "Invalid format '[ns_quotehtml $format]'."
         return 0
     }