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.153 -r1.154
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	23 Oct 2024 13:14:05 -0000	1.153
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	12 Mar 2025 09:11:55 -0000	1.154
@@ -134,7 +134,7 @@
   namespace eval ::db {}
   ::xo::db::postgresql instproc nextval {sequence} {
     if {![info exists ::db::sequences]} {
-      ns_log notice "-- creating per thread sequence table"
+      ns_log notice "-- creating per thread sequence table (triggered by :xo::db::postgresql nextval $sequence)"
       foreach s [::xo::dc list relnames "select relname from pg_class where relkind = 'S'"] {
         set ::db::sequences($s) 1
       }