Index: openacs-4/packages/acs-templating/www/admin/test/include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/admin/test/include.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-templating/www/admin/test/include.tcl	7 Aug 2017 23:48:02 -0000	1.4
+++ openacs-4/packages/acs-templating/www/admin/test/include.tcl	3 Sep 2024 15:37:35 -0000	1.5
@@ -1,15 +1,22 @@
+ad_page_contract {
+    This page is probably a leftover born in the times of OpenACS 4.x
+    as part of some kind of test suite.
+} {
+    l:optional
+}
+
 if {[llength $l]} {
     set car		[lindex $l 0]
     set cdr		[lrange $l 1 end]
   
-    regsub -all {%([a-zA-Z0-9.:_]+)%} $car {@\1@}     condition
+    regsub -all -- {%([a-zA-Z0-9.:_]+)%} $car {@\1@}     condition
     foreach {name rules} {
 	true  {"TRUE " ""      FALSE   not                 }
 	false { TRUE   not    "FALSE " ""   and %AND%   or and   %AND% or}
     } { # note that this cannot correctly reverse and/or mixes (no grouping)
 	set ${name}_condition $condition
 	foreach {from to} $rules {
-	    regsub -all $from [set ${name}_condition] $to ${name}_condition
+	    regsub -all -- $from [set ${name}_condition] $to ${name}_condition
 	}
 	regsub -all \
 	    {@([^@ ]+@)} [set ${name}_condition] {@<%%>\1} ${name}_label