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)))))