Index: openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl,v
diff -u -r1.10.10.2 -r1.10.10.3
--- openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	11 Oct 2013 09:49:12 -0000	1.10.10.2
+++ openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	10 Sep 2014 18:17:20 -0000	1.10.10.3
@@ -136,10 +136,12 @@
     return 1
 }
 
-ad_proc -private template::util::server_root {} {
+ad_proc -private -deprecated template::util::server_root {} {
     uses ns_library to find the server root, may not always be accurate
     because it essentially asks for the tcl library path and
-    strips off the last /tcl directory
+    strips off the last /tcl directory.
+
+    @see use $::acs::rootdir instead
 } {
 
   set path_length [expr [llength [file split [ns_library private]]] - 1]
@@ -167,24 +169,29 @@
 
 }
 
-ad_proc -private template::util::display_value { ref } {
+ad_proc -private -deprecated template::util::display_value { ref } {
     a proc used for debugging, just prints out a value to the error log
+
+    @see use simple "ns_log ...." instead
 } {
     upvar $ref value
     ns_log notice "$ref: $value
 "
 }
 
 
-ad_proc -private template::util::proper_noun { string_ref } {
+ad_proc -private -deprecated template::util::proper_noun { string_ref } {
     capitalizes the first letter of a string
     @return returns formatted string (UNFINISHED. FIXME.)
+    @see use "string totitle ..."
 } {
 
 }
 
 
-ad_proc -private template::util::string_range { string indices } {
+ad_proc -private -deprecated template::util::string_range { string indices } {
+    @see use "string range instead"
+} {
     return [string range $string [lindex $indices 0] [lindex $indices 1]]
 }
 
@@ -600,7 +607,7 @@
   foreach dir $dir_list {
 
   #debug
-  template::util::display_value dir
+  #template::util::display_value dir
 
   # using this lame hack since most aD servers are running an earlier version of Tcl than 8.3,
   # which supports the -directory switch that this hack emulates
@@ -609,7 +616,7 @@
   }
 
   #debugging
-  template::util::display_value file_list
+  #template::util::display_value file_list
 
   foreach tcl_file $file_list {
       ns_log notice "doc::parse_tcl_library: parsing through $tcl_file for documentation"