1 files changed, 3 insertions, 1 deletions
diff --git a/guix-data-service/database.scm b/guix-data-service/database.scm
index 26e40a0..86747e0 100644
--- a/guix-data-service/database.scm
+++ b/guix-data-service/database.scm
@@ -216,13 +216,15 @@
           (lambda ()
             (exec-query conn "ROLLBACK;"))
           #:unwind? #t)
+        ;; TODO Include the stack in the exception via knots
         (raise-exception exn))
     (lambda ()
       (let ((result (f conn)))
         (exec-query conn (if always-rollback?
                              "ROLLBACK;"
                              "COMMIT;"))
-        result))))
+        result))
+    #:unwind? #t))
 
 (define (check-test-database! conn)
   (match (exec-query conn "SELECT current_database()")