Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v
diff -u -N -r1.126.2.3 -r1.126.2.4
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	10 Mar 2019 21:34:33 -0000	1.126.2.3
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	28 Mar 2019 21:11:22 -0000	1.126.2.4
@@ -466,7 +466,8 @@
                 }
             }
             if {[info exists ::db::sequences(t_$sequence)]} {
-                #ns_log notice "-- found t_$sequence"
+                #ns_log notice "-- found t_$sequence
+                #ad_log Warning "Deprecated sequence name 't_$sequence' is used. Use instead 't_$sequence'"
                 set nextval [db_string -dbn $dbn nextval "select nextval('t_$sequence')"]
             } elseif {[info exists ::db::sequences($sequence)]} {
                 #ns_log notice "-- found $sequence"
@@ -489,7 +490,7 @@
                 ad_log Warning "Probably deprecated sequence name '$sequence' is used (no sequence table found)"
             } else {
                 #
-                # finally, there might be a view with a nextval
+                # Finally, there might be a view with a nextval
                 #
                 ns_log debug "db_nextval: sequence($sequence) is not a real sequence.  perhaps it uses the view hack."
                 set nextval [db_string -dbn $dbn nextval "select nextval from $sequence"]