Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.148.2.55 -r1.148.2.56
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	30 Mar 2022 13:45:20 -0000	1.148.2.55
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	22 Aug 2022 17:06:40 -0000	1.148.2.56
@@ -578,10 +578,10 @@
   }
 
   proc ::xo::db::pg_0or1row {sql} {
-    ns_log notice "::xo::db::pg_0or1row deprecated"
+    ad_log_deprecated proc ::xo::db::pg_0or1row "ns_pg_bind 0or1row"
     ::db_with_handle h {
       return [uplevel [list ns_pg_bind 0or1row $h {*}$bindOpt $sql]]
-    }
+    }    
   }
 
   #