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 -N -r1.189.2.65 -r1.189.2.66 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 24 Aug 2020 23:50:18 -0000 1.189.2.65 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 28 Sep 2020 21:04:04 -0000 1.189.2.66 @@ -199,7 +199,7 @@ @return referrer from the request headers. @param relative return the refer without protocol and host } { - set url [ns_set get [ns_conn headers] Referer] + set url [ns_set iget [ns_conn headers] Referer] if {$relative_p} { # In case the referrer URL has a protocol and host remove it regexp {^[a-z]+://[^/]+(/.*)$} $url . url