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.140.2.54 -r1.140.2.55 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 14 Oct 2016 18:58:53 -0000 1.140.2.54 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 28 Oct 2016 10:30:14 -0000 1.140.2.55 @@ -261,7 +261,7 @@ set url [ns_set get [ns_conn headers] Referer] if {$relative_p} { # In case the referrer URL has a protocol and host remove it - regexp {^[a-z]+://[^/]+(/.+)$} $url . url + regexp {^[a-z]+://[^/]+(/.*)$} $url . url } return $url }