Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -N -r1.61.2.1 -r1.61.2.2
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	29 Mar 2019 20:47:52 -0000	1.61.2.1
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	11 Dec 2019 18:13:56 -0000	1.61.2.2
@@ -1199,7 +1199,7 @@
                 ad_try {
                     set html [ad_parse_template \
                                   -params [list complaints [list context $::ad_page_contract_context] \
-                                               [list prev_url [get_referrer]] \
+                                               [list prev_url [util::get_referrer]] \
                                               ] [template::themed_template "/packages/acs-tcl/lib/complain"]]
                 } on error {errorMsg} {
                     set errorCode $::errorCode
@@ -2280,7 +2280,7 @@
     ns_return 422 text/html [ad_parse_template \
                                  -params [list [list exception_count $exception_count] \
                                               [list exception_text $exception_text] \
-                                              [list prev_url  [get_referrer]] \
+                                              [list prev_url  [util::get_referrer]] \
                                              ]  $complaint_template]
 }