Index: openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl,v
diff -u -N -r1.11.2.12 -r1.11.2.13
--- openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl	18 Mar 2024 13:12:44 -0000	1.11.2.12
+++ openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl	19 Mar 2024 10:44:57 -0000	1.11.2.13
@@ -739,6 +739,16 @@
         {<A HreF= j&#x61;v&#x41;sc&#x52;ipt&#x3A;Nzcp(9278)>} \
         false
 
+    lappend cases \
+        {Disguising the word "javascript" by prepending some protocol (feed)} \
+        {<a hREF=feed:javascript&colon;whaQ(9877)>} \
+        false
+
+    lappend cases \
+        {Disguising the word "javascript" by prepending some protocol (data)} \
+        {<a hREF=data:javascript&colon;whaQ(9877)>} \
+        false
+
     foreach {description content outcome} $cases {
         aa_${outcome} $description \
             [ad_dom_sanitize_html \