diff options
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index e4383335b..6c67334c1 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -639,6 +639,7 @@ static int DbWalHandler( Tcl_Interp *interp = pDb->interp; assert(pDb->pWalHook); + assert( db==pDb->db ); p = Tcl_DuplicateObj(pDb->pWalHook); Tcl_IncrRefCount(p); Tcl_ListObjAppendElement(interp, p, Tcl_NewStringObj(zDb, -1)); |