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 -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 /]/"