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.23 -r1.20.2.24
--- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	24 Aug 2022 12:13:35 -0000	1.20.2.23
+++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	27 Aug 2022 20:35:28 -0000	1.20.2.24
@@ -4,7 +4,6 @@
     @author Jeff Davis
     @author Héctor Romojaro <hector.romojaro@gmail.com>
     @creation-date 2005-02-28
-    @cvs-id $Id$
 }
 
 aa_register_case -cats {smoke production_safe} -procs {
@@ -17,7 +16,7 @@
     set count 0
     set good 0
     #
-    # Certain procs are defined outside of the OpenACS installation
+    # Certain procs are defined outside the OpenACS installation
     # source tree, e.g. in nsf. If they fail the test, the regular
     # OpenACS administrator cannot do much about it, so we only
     # generate a warning for them.
@@ -47,7 +46,7 @@
     }
     aa_log "Found $good public procs with proper documentation (out of $count checked)"
 
-    if {[info commands ::ns_parsehtml] ne ""} {
+    if {[::acs::icanuse "ns_parsehtml"] ne ""} {
         set nrTags 0
         set nrNotAllowedTags 0
         set allowedTags {
@@ -81,7 +80,7 @@
             if {[dict exists $dict main]} {
                 set text [dict get $dict main]
                 foreach chunk [::ns_parsehtml $text] {
-                    lassign $chunk what from to content
+                    lassign $chunk what chunk content
                     if {$what eq "tag"} {
                         incr nrTags
                         set tag [lindex $content 0]
@@ -284,7 +283,7 @@
     Sometimes proc parameter changes are not reflected in the proc doc, this
     should take care of some of these cases.
 
-    Test is case sensitive.
+    Test is case-sensitive.
 
     @author Héctor Romojaro <hector.romojaro@gmail.com>