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 -N -r1.126.2.38 -r1.126.2.39
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	17 Oct 2020 07:19:49 -0000	1.126.2.38
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	20 Oct 2020 07:59:16 -0000	1.126.2.39
@@ -2457,6 +2457,11 @@
     if {$host eq ""} {
         return ""
     }
+    #
+    # Domain names are case insensitive. So convert it to lower to
+    # avoid surprises.
+    #
+    set host [string tolower $host]
 
     #
     # Check, if we have validated it before, or it belongs to the