diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -149,7 +149,7 @@
 - [ ] replication
 - [ ] more advanced & flexible index system supporting complex indexes, joins, etc.
 - [ ] fancy query language
-- [ ] optimize reads: faster cache, mainIdx (hastable maybe?)
+- [ ] optimize reads: faster cache, mainIdx (hashtable maybe?)
 - [x] waiting for [`OverloadedRecordFields`][orf]
 
 Implementation
diff --git a/muesli.cabal b/muesli.cabal
--- a/muesli.cabal
+++ b/muesli.cabal
@@ -1,6 +1,6 @@
 name:                muesli
 category:            Database
-version:             0.1.0.0
+version:             0.1.0.1
 synopsis:            A simple document-oriented database
 description:
   @muesli@ is an easy to use
@@ -18,7 +18,7 @@
 bug-reports:         https://github.com/clnx/muesli/issues
 author:              Călin Ardelean
 maintainer:          Călin Ardelean <calinucs@gmail.com>
-copyright:           Copyright (C) 2015 Călin Ardelean
+copyright:           Copyright (c) 2015 Călin Ardelean
 license:             MIT
 license-file:        LICENSE.md
 stability:           experimental
diff --git a/src/Database/Muesli/Backend/File.hs b/src/Database/Muesli/Backend/File.hs
--- a/src/Database/Muesli/Backend/File.hs
+++ b/src/Database/Muesli/Backend/File.hs
@@ -52,7 +52,7 @@
 
   withDb path f = liftIO . withBinaryFile path ReadWriteMode $ f . FileHandle
 
-  swapDb oldPath path = liftIO (renameFile path oldPath) >> openDb path
+  swapDb oldPath path = liftIO (renameFile path oldPath) >> openDb oldPath
 
 instance DataHandle FileHandle where
   readDocument hnd r = do
diff --git a/src/Database/Muesli/Commit.hs b/src/Database/Muesli/Commit.hs
--- a/src/Database/Muesli/Commit.hs
+++ b/src/Database/Muesli/Commit.hs
@@ -56,8 +56,6 @@
   liftIO = Transaction . liftIO
 
 -- | State held inside a 'Transaction'.
---
--- Note: The 'Transaction' type is internally 'StateT' ('TransactionState' l) m a.
 data TransactionState l = TransactionState
   { transHandle     :: !(Handle l)
 -- | Allocated by 'runQuery' with 'mkNewTransactionId' (auto-incremental)
@@ -67,7 +65,8 @@
 -- of these, so the transaction is aborted if concurrent transactions update
 -- any of them.
   , transReadList   :: ![DocumentKey]
--- | Accumulates all updated or deleted documents' keys.
+-- | Accumulates all updated or deleted documents' keys together with the
+-- serialized data.
   , transUpdateList :: ![(LogRecord, ByteString)]
   }
 
@@ -210,8 +209,7 @@
           return (DataState hnd cache', ())
         withMaster h $ \m -> do
           let rs' = fst <$> rs
-          let trec = Completed tid
-          st <- logAppend (logState m) [trec]
+          st <- logAppend (logState m) [Completed tid]
           let (lgp, lgc) = updateLog tid (keepTrans m) (logPend m) (logComp m)
           let m' = m { logState = st
                      , logPend  = lgp