Index: openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/01-database-procs.tcl,v
diff -u -r1.1.2.21 -r1.1.2.22
--- openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	1 Feb 2021 10:51:08 -0000	1.1.2.21
+++ openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	17 Feb 2021 08:20:57 -0000	1.1.2.22
@@ -318,8 +318,13 @@
     return ""
 }
 
-ad_proc -public db_quote { string } {
-    Quotes a string value to be placed in a SQL statement.
+ad_proc -deprecated db_quote { string } {
+    
+    Quotes a string value to be placed in a SQL statement.  Use the
+    built-in ns_dbquotevalue instead, which cares also about the
+    surrounding quotes.
+    
+    @see ns_dbquotevalue
 } {
     regsub -all -- {'} "$string" {''} result
     return $result