Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -r1.71.2.58 -r1.71.2.59
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	15 Feb 2024 12:27:30 -0000	1.71.2.58
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	23 Feb 2024 13:14:08 -0000	1.71.2.59
@@ -523,7 +523,7 @@
                                  "a" 1 \
                                  "'" 1 \
                                  "<p>" 1 \
-                                 "<script>alert('ciao');</script>" 0 \
+                                 "<script>alert('ciao');</script>" [expr {[ad_html_security_check "<script>alert('ciao');</script>"] eq ""}] \
                                  $string_with_nul 0]
         dict set cases nohtml [list \
                                    "a" 1 \