Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -N -r1.98 -r1.99
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 7 Sep 2018 00:35:38 -0000 1.98
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 9 Sep 2018 10:50:17 -0000 1.99
@@ -190,10 +190,10 @@
} {
if {![info exists location]} {
- set location [ad_url]
+ set location [util_current_location]
}
#
- # make sure, location ends with a "/"
+ # Make sure, location ends with a "/".
#
set location "[string trimright $location /]/"