diff --git a/Control/Monad/Extra.hs b/Control/Monad/Extra.hs
--- a/Control/Monad/Extra.hs
+++ b/Control/Monad/Extra.hs
@@ -171,9 +171,9 @@
              liftIO $ writeIORef result res
         readIORef result
 
--- | Draw monadic actions from a list until one of them yields a value failing
---   the predicate, and then return all the passing values in a list within
---   that monad.
+-- | Draw monadic actions from a list until one of them yields a value
+--   satisfying the predicate, and then return all the values up to and 
+--   including the first that succeeds in a list within that monad.
 sequenceUntil :: Monad m => (a -> Bool) -> [m a] -> m [a]
 sequenceUntil _ [] = return []
 sequenceUntil p (m:ms) = do
diff --git a/monad-extras.cabal b/monad-extras.cabal
--- a/monad-extras.cabal
+++ b/monad-extras.cabal
@@ -1,5 +1,5 @@
 name:           monad-extras
-version:        0.5.0
+version:        0.5.1
 synopsis:       Extra utility functions for working with monads
 -- description:
 homepage:       http://github.com/jwiegley/monad-extras