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.7 -r1.66.2.8
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	16 Jan 2022 15:31:23 -0000	1.66.2.7
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	30 Mar 2022 07:59:30 -0000	1.66.2.8
@@ -439,6 +439,10 @@
     if { [info exists element(value)] } {
         set contents [template::util::richtext::get_property contents $element(value)]
         set format   [template::util::richtext::get_property format $element(value)]
+        if {![string is list $format] || $format ni [template::util::richtext::formats]} {
+            ns_log warning "Ignoring provided format '$format' for richtext widget with id $element(id)"
+            set format {}
+        }
     } else {
         set contents {}
         set format {}
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.63.2.18 -r1.63.2.19
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	29 Mar 2022 11:01:47 -0000	1.63.2.18
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	30 Mar 2022 07:59:30 -0000	1.63.2.19
@@ -677,9 +677,7 @@
     upvar $attribute_reference attributes
 
     # Create an array for easier testing of selected values
-    if {[string is list $values_list]} {
-        template::util::list_to_lookup $values_list values
-    }
+    template::util::list_to_lookup $values_list values
 
     set output {}
     if { $mode ne "edit" } {