From 244453c1dc56da6ba676aeff39cf63bfc8e08748 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Tue, 30 Nov 2004 09:50:07 +0000
Subject: [PATCH] fix commit-transaction

---
 scheme/bdb.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/bdb.scm b/scheme/bdb.scm
index 7c1b575..aef1a44 100644
--- a/scheme/bdb.scm
+++ b/scheme/bdb.scm
@@ -1104,7 +1104,7 @@
 (define (commit-transaction txn-id . args)
   (let-optionals args
       ((flags (or (current-flags) '())))
-    (let ((result (bdb-txn-commit-int txn-id (flags->value))))
+    (let ((result (bdb-txn-commit-int txn-id (flags->value flags))))
       (if (integer? result)
 	  (raise-bdb-condition result)
 	  (values)))))