Index: openacs-4/packages/acs-automated-testing/acs-automated-testing.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/acs-automated-testing.info,v
diff -u -r1.39 -r1.40
--- openacs-4/packages/acs-automated-testing/acs-automated-testing.info	19 Mar 2018 13:40:50 -0000	1.39
+++ openacs-4/packages/acs-automated-testing/acs-automated-testing.info	28 May 2018 15:49:52 -0000	1.40
@@ -7,7 +7,7 @@
     <initial-install-p>t</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="5.10.0d2" url="http://openacs.org/repository/download/apm/acs-automated-testing-5.10.0d2.apm">
+    <version name="5.10.0d3" url="http://openacs.org/repository/download/apm/acs-automated-testing-5.10.0d3.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>The interface to the automated testing facilities within OpenACS.</summary>
         <release-date>2017-08-06</release-date>
@@ -19,8 +19,9 @@
         OpenACS system.  Also provides a UI for managing
         automatic-rebuild servers as in a test farm.</description>
 
-        <provides url="acs-automated-testing" version="5.10.0d2"/>
+        <provides url="acs-automated-testing" version="5.10.0d3"/>
         <requires url="acs-kernel" version="5.9.1"/>
+        <requires url="acs-tcl" version="5.10.0d7"/>
 
         <callbacks>
         </callbacks>
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 -r1.57 -r1.58
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	16 May 2018 22:04:59 -0000	1.57
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	28 May 2018 15:49:52 -0000	1.58
@@ -1075,7 +1075,7 @@
     @author Gustaf Neumann
 } {
     set driverInfo [util_driver_info]
-    set peeraddr   [ns_conn peeraddr]
+    set address [dict get $driverInfo address]
     set extra_args {}
     if {[info exists body]} {
         lappend extra_args -body $body
@@ -1087,7 +1087,7 @@
         }
         lappend extra_args -headers $requestHeaders
     }
-    nsv_set aa_test logindata [list peeraddr $peeraddr user_id $user_id]
+    nsv_set aa_test logindata [list peeraddr $address user_id $user_id]
 
     #
     # Construct nice log line
@@ -1109,7 +1109,7 @@
                    -timeout $timeout \
                    -method $method \
                    {*}$extra_args \
-                   "http://\[$peeraddr\]:[dict get $driverInfo port]/$request"]
+                   "http://\[$address\]:[dict get $driverInfo port]/$request"]
     } finally {
         #
         # always reset after the reqest the login data nsv