diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+0.5.1
+-----------------------------------------------------------------------------
+- Bugfixes
+
 0.5.0
 -----------------------------------------------------------------------------
 - `transactional` has been added to execute redis transactions.
diff --git a/redis-io.cabal b/redis-io.cabal
--- a/redis-io.cabal
+++ b/redis-io.cabal
@@ -1,5 +1,5 @@
 name:                redis-io
-version:             0.5.0
+version:             0.5.1
 synopsis:            Yet another redis client.
 license:             MPL-2.0
 license-file:        LICENSE
diff --git a/src/Database/Redis/IO/Client.hs b/src/Database/Redis/IO/Client.hs
--- a/src/Database/Redis/IO/Client.hs
+++ b/src/Database/Redis/IO/Client.hs
@@ -74,7 +74,7 @@
 #if MIN_VERSION_monad_control(1,0,0)
 instance MonadBaseControl IO Client where
     type StM Client a = StM (ReaderT Pool IO) a
-    liftBaseWith f = Client . liftBaseWith $ \run -> f (run . client)
+    liftBaseWith f = Client $ liftBaseWith $ \run -> f (run . client)
     restoreM = Client . restoreM
 #else
 instance MonadBaseControl IO Client where
@@ -82,7 +82,7 @@
         { unClientStM :: StM (ReaderT Pool IO) a }
 
     liftBaseWith f =
-        Client . liftBaseWith $ \run -> f (fmap ClientStM . run . client)
+        Client $ liftBaseWith $ \run -> f (fmap ClientStM . run . client)
 
     restoreM = Client . restoreM . unClientStM
 #endif