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.69 -r1.79.2.70
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	26 Feb 2024 09:51:59 -0000	1.79.2.69
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	5 Jul 2024 13:43:29 -0000	1.79.2.70
@@ -1330,10 +1330,10 @@
         #aa_log "HTTP: user_info [ns_quotehtml <$user_info>]"
         #aa_log "HTTP: start session_info [ns_quotehtml <$session>]"
 
-        set url [acs::test::url]
-        set urlInfo [ns_parseurl $url]
+        set test_url [acs::test::url]
+        set urlInfo [ns_parseurl $test_url]
         set address [dict get $urlInfo host]
-        set url "$url/$request"
+        set url ${test_url}/${request}
 
         #
         # Either authenticate via user_info (when specified) or via
@@ -1404,6 +1404,17 @@
                 if {![string match "3??" $status] || $location eq ""} {
                     break
                 }
+
+                #
+                # According to
+                # https://www.rfc-editor.org/rfc/rfc7231#section-7.1.2,
+                # the location header may return a relative URL as
+                # well.
+                #
+                set location [util::complete_location \
+                                  -location $location \
+                                  -complete_url $test_url]
+
             }
         } finally {
             #