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.100 -r1.126.2.101
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	11 Jun 2024 09:26:12 -0000	1.126.2.100
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	11 Jun 2024 17:04:47 -0000	1.126.2.101
@@ -3063,7 +3063,7 @@
         # $hostName and checks the properties of the first IP address
         # returned.
         #
-        set validationOk [expr {![ns_ip public [ns_addrbyhost $hostName]]}]
+        set validationOk [expr {![ns_ip public [ns_addrbyhost $host]]}]
 
     } elseif {[acs::icanuse "ns_subnetmatch"]} {
         #