diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,8 @@
+## v0.2.0.1 - 2014-07-26
+
+* Fix a typo in a haddock comment (#5 by @supki)
+* Fix Travis CI failure
+
 ## v0.2.0 - 2014-05-01
 
 * Generalize `Concurrently` (#4)
diff --git a/lifted-async.cabal b/lifted-async.cabal
--- a/lifted-async.cabal
+++ b/lifted-async.cabal
@@ -1,5 +1,5 @@
 name:                lifted-async
-version:             0.2.0
+version:             0.2.0.1
 synopsis:            Run lifted IO operations asynchronously and wait for their results
 homepage:            https://github.com/maoe/lifted-async
 bug-reports:         https://github.com/maoe/lifted-async/issues
@@ -95,5 +95,5 @@
 
 source-repository this
   type: git
-  tag: v0.2.0
+  tag: v0.2.0.1
   location: https://github.com/maoe/lifted-async.git
diff --git a/src/Control/Concurrent/Async/Lifted.hs b/src/Control/Concurrent/Async/Lifted.hs
--- a/src/Control/Concurrent/Async/Lifted.hs
+++ b/src/Control/Concurrent/Async/Lifted.hs
@@ -179,7 +179,7 @@
   -> m (Either SomeException a)
 waitCatch a = liftBase (A.waitCatch a) >>= sequenceEither
 
--- | Generalized version of 'A.catch'.
+-- | Generalized version of 'A.cancel'.
 cancel :: MonadBase IO m => Async (StM m a) -> m ()
 cancel = liftBase . A.cancel
 
diff --git a/tests/Test/Async/IO.hs b/tests/Test/Async/IO.hs
--- a/tests/Test/Async/IO.hs
+++ b/tests/Test/Async/IO.hs
@@ -2,7 +2,7 @@
 module Test.Async.IO
   ( ioTestGroup
   ) where
-import Control.Monad (when)
+import Control.Monad (when, void)
 import Data.Maybe (isJust, isNothing)
 
 import Control.Concurrent.Lifted
@@ -78,7 +78,7 @@
 case_async_poll2 :: Assertion
 case_async_poll2 = do
   a <- async (return value)
-  wait a
+  void $ wait a
   r <- poll a
   when (isNothing r) $ assertFailure ""
   r' <- poll a   -- poll twice, just to check we don't deadlock
diff --git a/tests/Test/Async/State.hs b/tests/Test/Async/State.hs
--- a/tests/Test/Async/State.hs
+++ b/tests/Test/Async/State.hs
@@ -107,7 +107,7 @@
 case_async_poll2 =
   void $ flip runStateT value $ do
     a <- async (return value)
-    wait a
+    void $ wait a
     r <- poll a
     when (isNothing r) $
       liftIO $ assertFailure "The result must not be Nothing."