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.41 -r1.189.2.42
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	29 Nov 2019 15:30:57 -0000	1.189.2.41
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	11 Dec 2019 18:13:56 -0000	1.189.2.42
@@ -334,20 +334,43 @@
 
 # debugging kludges
 
-ad_proc -public NsSettoTclString {set_id} {
+ad_proc -deprecated NsSettoTclString {set_id} {
     returns a plain text version of the passed ns_set id
+
+    @see util::ns_set_to_tcl_string
+
+    DEPRECATED: does not comply with OpenACS naming convention
 } {
+    return [util::ns_set_to_tcl_string $set_id]
+}
+
+ad_proc -public util::ns_set_to_tcl_string {set_id} {
+    returns a plain text version of the passed ns_set id
+} {
     set result ""
     for {set i 0} {$i<[ns_set size $set_id]} {incr i} {
         append result "[ns_set key $set_id $i] : [ns_set value $set_id $i]\n"
     }
     return $result
 }
 
-ad_proc -public get_referrer {-relative:boolean} {
+ad_proc -deprecated get_referrer args {
     @return referrer from the request headers.
     @param relative return the refer without protocol and host
+
+    DEPRECATED: does not comply with OpenACS naming convention.
+
+    @see util::get_referrer
 } {
+    return [util::get_referrer {*}$args]
+}
+
+ad_proc -public util::get_referrer {
+    -relative:boolean
+} {
+    @return referrer from the request headers.
+    @param relative return the refer without protocol and host
+} {
     set url [ns_set get [ns_conn headers] Referer]
     if {$relative_p} {
         # In case the referrer URL has a protocol and host remove it
@@ -356,6 +379,7 @@
     return $url
 }
 
+
 ##
 #  Database-related code
 ##