Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -r1.126.2.45 -r1.126.2.46
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	14 Jan 2021 18:20:22 -0000	1.126.2.45
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	6 Feb 2021 20:43:14 -0000	1.126.2.46
@@ -2499,7 +2499,7 @@
     # The per-request cache takes care of outputting error message only
     # once per request.
     #
-    return [acs::per_request_cache eval -key acs-tcl.security_provided_host_validated($host) {
+    return [acs::per_request_cache eval -key acs-tcl.security_provided_host_validated-$host {
         set result 1
         if {$host ne ""} {
             if {![regexp {^[\w.:@+/=$%!*~\[\]-]+$} $host]} {