From 8bf8e3cf82d2cbc7697cc2398c67a49be0de6c2a Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Fri, 19 Mar 2021 14:21:19 +0100
Subject: [PATCH] db: fix error case for disconnect in lock

---
 racket/collects/db/private/generic/ffi-common.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/collects/db/private/generic/ffi-common.rkt b/racket/collects/db/private/generic/ffi-common.rkt
index bf38c7bae3..5b4ba0411e 100644
--- a/racket/collects/db/private/generic/ffi-common.rkt
+++ b/racket/collects/db/private/generic/ffi-common.rkt
@@ -105,7 +105,7 @@
              (end-atomic)]
             [else
              (end-atomic)
-             (error)])
+             (error/disconnect-in-lock 'sqlite3)])
       (sync os-resp-chan))
 
     ;; sync-call : (DB/#f -> X) -> X