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 -r1.10.2.11 -r1.10.2.12
--- openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl	2 Sep 2022 08:46:08 -0000	1.10.2.11
+++ openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl	2 Sep 2022 14:14:40 -0000	1.10.2.12
@@ -208,6 +208,14 @@
 
     } {
         #
+        # Other tests might already have set handlers on the
+        # page. Let's count them beforehand.
+        #
+        template::get_body_event_handlers
+        template::prepare_body_script_multirow
+        set starting_body_scripts [template::multirow size body_scripts]
+
+        #
         # Note: we use placeholders instead of real values to better
         # find them in the output.
         #
@@ -299,16 +307,15 @@
 
         template::add_refresh_on_history_handler
 
-
         set page [template::adp_include /packages/acs-templating/lib/body_scripts {}]
 
         aa_equals "Page contains exactly 11 scripts (body handlers are grouped together)" \
-            [regsub -all "<script" $page {} _] 11
+            [regsub -all "<script" $page {} _] [expr {$starting_body_scripts + 11}]
 
         aa_true "There is a nonce declaration in the page " [regexp {nonce="\w*"} $page nonce]
         if {[info exists nonce]} {
             aa_equals "All nonces on the page are the same, one per script" \
-                [regsub -all $nonce $page {} _] 11
+                [regsub -all $nonce $page {} _] [expr {$starting_body_scripts + 11}]
         }
 
         aa_equals "Page contains only 1 handler per identifier" \