diff --git a/racket/collects/db/private/sqlite3/connection.rkt b/racket/collects/db/private/sqlite3/connection.rkt index 97ba750362..45d60b09cd 100644 --- a/racket/collects/db/private/sqlite3/connection.rkt +++ b/racket/collects/db/private/sqlite3/connection.rkt @@ -354,7 +354,7 @@ (define s (simplify-status full-s)) (cond [(and (= s SQLITE_BUSY) (< iteration busy-retry-limit)) (sleep busy-retry-delay) - (handle* who thunk (add1 iteration))] + (handle* who thunk (add1 iteration) pst)] [else (when (> iteration 0) (log-db-debug "continuing ~s with ~s after SQLITE_BUSY x ~s"