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.78.2.51 -r1.78.2.52
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	15 Apr 2017 10:12:03 -0000	1.78.2.51
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	21 Apr 2017 14:22:45 -0000	1.78.2.52
@@ -2024,7 +2024,7 @@
     #
     set driverInfo [util_driver_info]
     set driverHostName [dict get $driverInfo hostname]
-    if {$hostName eq $driverHostName || $hostName in [ns_addrbyhost -all $driverHostName]} {
+    if {$hostName eq $driverHostName || $hostName in [ns_ -all $driverHostName]} {
         #
         # port is currently ignored
         #
@@ -2287,7 +2287,7 @@
             font-src
             form-action
             frame-src
-            frome-ancestors
+            frame-ancestors
             img-src
             media-src
             object-src