Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -r1.109.2.38 -r1.109.2.39
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	1 Sep 2022 07:21:21 -0000	1.109.2.38
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	5 Sep 2022 15:07:19 -0000	1.109.2.39
@@ -46,7 +46,7 @@
                 #set doBlockquotes 1
                 append result $line \n
             }
-        } elseif {[string trim $line] eq ""} {
+        } elseif {[string is space $line]} {
             #set doBlockquotes 1
             append result $line \n
         } elseif {$doBlockquotes && [string range $line 0 0] eq ">"} {