diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index 7bbf46747b6945040fd0107d41f5ca6c19538153..63c3525987890b8777771479f015b3e2d435c780 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -117,7 +117,7 @@ rows."
                 (sqlite-bind stmt index (normalize arg)))
               args (iota (length args) 1))
     (let ((result (sqlite-fold-right cons '() stmt)))
-      (sqlite-finalize stmt)
+      (sqlite-reset stmt)
       result)))
 
 (define-syntax sqlite-exec/bind
@@ -1292,7 +1292,7 @@ AND (:system IS NULL
              (query->bind-arguments query))
       (sqlite-reset stmt)
       (let ((rows (sqlite-fold-right cons '() stmt)))
-        (sqlite-finalize stmt)
+        (sqlite-reset stmt)
         (and=> (expect-one-row rows) vector->list)))))
 
 (define (db-get-builds-query-max query)
@@ -1313,7 +1313,7 @@ AND (:system IS NULL
              (query->bind-arguments query))
       (sqlite-reset stmt)
       (let ((rows (sqlite-fold-right cons '() stmt)))
-        (sqlite-finalize stmt)
+        (sqlite-reset stmt)
         (and=> (expect-one-row rows) vector->list)))))
 
 (define (db-get-builds-min eval status)