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 <br>'s to preserve line breaks
         # unless inside <PRE> 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} {
Index: openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl,v
diff -u -r1.20.2.29 -r1.20.2.30
--- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	14 Sep 2022 10:45:42 -0000	1.20.2.29
+++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	22 Dec 2022 02:39:02 -0000	1.20.2.30
@@ -84,7 +84,7 @@
             set dict [nsv_get api_proc_doc $p]
             if {[dict exists $dict main]} {
                 set text [dict get $dict main]
-                foreach chunk [::ns_parsehtml $text] {
+                foreach chunk [::ns_parsehtml -- $text] {
                     lassign $chunk what chunk content
                     if {$what eq "tag"} {
                         incr nrTags