Index: openacs-4/packages/acs-tcl/tcl/sql-statement-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/sql-statement-procs.tcl,v
diff -u -r1.5.2.2 -r1.5.2.3
--- openacs-4/packages/acs-tcl/tcl/sql-statement-procs.tcl	17 Feb 2021 11:10:55 -0000	1.5.2.2
+++ openacs-4/packages/acs-tcl/tcl/sql-statement-procs.tcl	17 Feb 2021 11:13:15 -0000	1.5.2.3
@@ -24,6 +24,11 @@
     This is unused and untested code.
 }
 
+if {![ad_with_deprecated_code_p]} {
+    ns_log notice "deprecated-procs: skip deprecated code"
+    return
+}
+
 ad_proc -deprecated -public ad_sql_get { 
     sqlarrayname
 } {