Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.153.2.36 -r1.153.2.37
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	27 May 2021 19:07:28 -0000	1.153.2.36
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	12 Jun 2021 18:01:33 -0000	1.153.2.37
@@ -1175,7 +1175,7 @@
     #
     if {[info exists ::ad_conn(extra_url)]
         && $::ad_conn(extra_url) ne ""
-        && [string range [ns_conn url] end-[string length $::ad_conn(extra_url)] end] ne [ns_conn url]
+        && [string range $::ad_conn(extra_url) end-[string length $::ad_conn(extra_url)] end] ne [ns_conn url]
     } {
         #
         # On internal redirects, the current ::ad_conn(extra_url)