Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.147.2.26 -r1.147.2.27
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	5 Sep 2022 14:10:56 -0000	1.147.2.26
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	5 Sep 2022 15:07:20 -0000	1.147.2.27
@@ -848,7 +848,9 @@
     regsub -all -- "</?p */?>" $clean_content "" clean_content
     #ns_log notice "--validate_form_content '$content' clean='$clean_content', \
         #    stripped='[string trim $clean_content]'"
-    if {[string trim $clean_content] eq ""} { set text [list "" $mime]}
+    if {[string is space $clean_content]} {
+      set text [list "" $mime]
+    }
     #:log "final text='$text'"
     return 1
   }