Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v
diff -u -r1.62.2.7 -r1.62.2.8
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	16 Oct 2013 11:08:15 -0000	1.62.2.7
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	9 Sep 2014 17:34:33 -0000	1.62.2.8
@@ -315,7 +315,7 @@
 # the way a page works, they should see a link to the
 # email address of the programmer who can fix the page).
 
-ad_proc -public ad_admin_owner {} {
+ad_proc -public -deprecated ad_admin_owner {} {
     @return E-mail address of the Administrator of this site.
 } {
     return [parameter::get -package_id [ad_acs_kernel_id] -parameter AdminOwner]
Index: openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/table-display-procs.tcl,v
diff -u -r1.20.8.12 -r1.20.8.13
--- openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	9 Sep 2014 17:04:09 -0000	1.20.8.12
+++ openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	9 Sep 2014 17:34:33 -0000	1.20.8.13
@@ -849,7 +849,7 @@
     return $order_by_clause
 }
 
-ad_proc ad_new_sort_by {key keys} {
+ad_proc -deprecated ad_new_sort_by {key keys} {
     Makes a new sort_by string, sorting by "key".
 
     If the key is followed by "*", that indicates the ordering should
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.133.2.48 -r1.133.2.49
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	9 Sep 2014 10:57:28 -0000	1.133.2.48
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	9 Sep 2014 17:34:33 -0000	1.133.2.49
@@ -341,7 +341,8 @@
 
 
 
-proc util_PrettyBoolean {t_or_f { default  "default" } } {
+ad_proc -deprecated util_PrettyBoolean {t_or_f { default  "default" } } {
+} {
     if { $t_or_f == "t" || $t_or_f eq "T" } {
 	return "Yes"
     } elseif { $t_or_f == "f" || $t_or_f eq "F" } {
@@ -1363,7 +1364,7 @@
     return [expr { [info exists var] && $var eq $value } ]
 }
 
-ad_proc -private set_encoding {
+ad_proc -deprecated -private set_encoding {
   {-text_translation {auto binary}}
   content_type
   channel