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 -N -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