Index: openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl,v
diff -u -N -r1.10.2.14 -r1.10.2.15
--- openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl	7 Oct 2022 11:13:02 -0000	1.10.2.14
+++ openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl	13 Oct 2022 12:55:19 -0000	1.10.2.15
@@ -212,8 +212,9 @@
     } {
         #
         # Other tests might already have set handlers on the
-        # page. Let's count them beforehand.
+        # page. Let's reset them beforehand.
         #
+        template::prepare_body_script_multirow
         template::get_body_event_handlers
         template::prepare_body_script_multirow
         set starting_body_scripts [template::multirow size body_script]
@@ -312,7 +313,7 @@
 
         set page [template::adp_include /packages/acs-templating/lib/body_scripts {}]
 
-        aa_equals "Page contains exactly 11 scripts (body handlers are grouped together)" \
+        aa_equals "Page contains exactly 11 additional scripts (body handlers are grouped together)" \
             [regsub -all "<script" $page {} _] [expr {$starting_body_scripts + 11}]
 
         aa_true "There is a nonce declaration in the page " [regexp {nonce="\w*"} $page nonce]