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.79.2.26 -r1.79.2.27
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	3 Feb 2020 18:11:04 -0000	1.79.2.26
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	26 Feb 2020 12:41:30 -0000	1.79.2.27
@@ -1454,7 +1454,7 @@
         if {!$already_logged_in} {
             #
             # The user is not logged in via cookies, check first
-            # available user_id. If this dies not exist, perform login
+            # available user_id. If this does not exist, perform login
             #
             #aa_log "not logged in, check $user_info"
 
@@ -1464,10 +1464,17 @@
                 set user_id [dict get $user_info user_id]
                 if {$user_id ne 0} {
                     #aa_log "::acs::test::set_user set logindata via nsv"
+                    set address [dict get $user_info address]
+                    ad_try {
+                        set peeraddr [ns_addrbyhost $address]
+                    } on error {errorMsg} {
+                        set peeraddr $address
+                    }
+                    set address $peeraddr
                     nsv_set aa_test logindata \
                         [list \
-                             peeraddr [dict get $user_info address] \
-                             user_id [dict get $user_info user_id]]
+                             peeraddr $address \
+                             user_id $user_id]
                     dict set session login via_logindata
                 } else {
                     dict set session login none