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.42 -r1.109.2.43
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 4 Dec 2022 11:36:40 -0000 1.109.2.42
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 22 Dec 2022 02:39:02 -0000 1.109.2.43
@@ -431,7 +431,7 @@
# Convert _single_ CRLF's to
's to preserve line breaks
# unless inside
elements. # - set parsed [ns_parsehtml $text] + set parsed [ns_parsehtml -- $text] set out "" set inside_pre 0 foreach token $parsed { @@ -506,7 +506,7 @@ } set depth 0 - set parseListElements [ns_parsehtml -onlytags $html_fragment] + set parseListElements [ns_parsehtml -onlytags -- $html_fragment] foreach parseListElement $parseListElements { set tag [string tolower [lindex $parseListElement 0]] if {$tag in $close_tags} {