From bac11bf8f5ee73d1ea6c5ca97feb9c572430db7a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 24 Jan 2015 06:43:46 -0700
Subject: [PATCH] db/sqlite3: fix recur for busy db

---
 racket/collects/db/private/sqlite3/connection.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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"