Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -N -r1.63 -r1.64
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	19 Jul 2018 13:32:29 -0000	1.63
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	23 Jul 2018 11:44:20 -0000	1.64
@@ -450,7 +450,7 @@
                             $cats $init_classes $on_error $args $error_level $bugs $procs]
     foreach p $procs {
         api_add_to_proc_doc -proc_name $p -property testcase -value [list $testcase_id $package_key]
-        ns_log notice "TESTCASE: api_add_to_proc_doc -proc_name $p -property testcase -value $testcase_id -> [dict get [nsv_get api_proc_doc $p] testcase]"
+        #ns_log notice "TESTCASE: api_add_to_proc_doc -proc_name $p -property testcase -value $testcase_id -> [dict get [nsv_get api_proc_doc $p] testcase]"
     }
     #
     # First, search the current list of test cases. If an old version already
@@ -1080,7 +1080,22 @@
     @author Gustaf Neumann
 } {
     set driverInfo [util_driver_info]
-    set address [dict get $driverInfo address]
+    try {
+        #
+        # First try to get actual information from the
+        # connection. This is however only available in newer versions
+        # of NaviServer. The actual information is e.g. necessary,
+        # when the driver address is set to "0.0.0.0" or "::0" etc,
+        # and therefore every address might be provided as peer
+        # address in the check in the security-procs.
+        #
+        set address [ns_conn currentaddr]
+    } on error {errorMsg} {
+        #
+        # If this fails, fall back to configured value.
+        #
+        set address [dict get $driverInfo address]
+    }
     set extra_args {}
     if {[info exists body]} {
         lappend extra_args -body $body
@@ -1095,7 +1110,7 @@
     nsv_set aa_test logindata [list peeraddr $address user_id $user_id]
 
     #
-    # Construct nice log line
+    # Construct a nice log line
     #
     append log_line "${prefix}Run $method $request"
     if {[llength $headers] > 0} {
Index: openacs-4/packages/acs-automated-testing/tcl/test/acs-automated-testing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/test/acs-automated-testing-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-automated-testing/tcl/test/acs-automated-testing-procs.tcl	20 Jul 2018 14:41:51 -0000	1.6
+++ openacs-4/packages/acs-automated-testing/tcl/test/acs-automated-testing-procs.tcl	23 Jul 2018 11:44:20 -0000	1.7
@@ -14,7 +14,8 @@
         twt::do_request
         twt::user::logout
         twt::user::delete
-    } -libraries tclwebtest \
+    } \
+    -libraries tclwebtest \
     tclwebtest_example {
     A simple test case demonstrating the use of tclwebtest (HTTP level testing).