Index: openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl,v
diff -u -r1.30.2.29 -r1.30.2.30
--- openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl	25 Feb 2024 16:13:42 -0000	1.30.2.29
+++ openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl	5 Jul 2024 13:43:26 -0000	1.30.2.30
@@ -1128,6 +1128,15 @@
         set location ${location}?${urlvars}
     }
 
+    #
+    # 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 $url]
+
     if {$method eq "GET"} {
         return [$this_proc \
                     -method          GET \
@@ -1494,7 +1503,6 @@
     set r_headers [ns_set array $resp_headers]
     ns_set free $resp_headers
 
-
     # Redirection handling
     if {$depth < $max_depth} {
         incr depth