Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.189.2.174 -r1.189.2.175
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	31 May 2024 12:00:00 -0000	1.189.2.174
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	3 Jun 2024 17:47:19 -0000	1.189.2.175
@@ -1710,11 +1710,17 @@
         }
         set url $target_url
     } elseif { [util_absolute_path_p $target_url] } {
-        # /foo/bar.tcl style - prepend the current location:
-        set url [util_current_location]$target_url
+        #
+        # The URL is an absolute path such as: /foo/bar.tcl
+        #
+        set url [expr {[::acs::icanuse "relative redirects"] ? "" : [util_current_location]}]
+        append url $target_url
     } else {
+        #
         # URL is relative to current directory.
-        set url [util_current_location][ad_urlencode_folder_path [util_current_directory]]
+        #
+        set url [expr {[::acs::icanuse "relative redirects"] ? "" : [util_current_location]}]
+        append url [ad_urlencode_folder_path [util_current_directory]]
         if {$target_url ne "."} {
             append url $target_url
         }