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.31 -r1.126.2.32
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	20 Jun 2020 09:41:47 -0000	1.126.2.31
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	20 Jun 2020 09:48:21 -0000	1.126.2.32
@@ -2428,8 +2428,12 @@
         set result 1
         if {$host ne ""} {
             if {![regexp {^[\w.:@+/=$%!*~\[\]-]+$} $host]} {
+                #
+                # Don't use "ad_log", since this might leed to a recursive loop.
+                #
                 binary scan [encoding convertto utf-8 $host] H* hex
-                ns_log warning "provided host <$host> (hex $hex) contains invalid characters"
+                ns_log warning "provided host <$host> (hex $hex) contains invalid characters\n\
+                       URL: [ns_conn url\n]peer addr:[ad_conn peeraddr]"
                 set result 0
             }
         }