diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,4 +1,10 @@
+0.1.1.0
+==============
+
+* Set upper bounds for a few dependencies.
+* Add ExceptT instance for Katip typeclass
+
 0.1.0.0
 ==============
 
-Initial release
+* Initial release
diff --git a/katip.cabal b/katip.cabal
--- a/katip.cabal
+++ b/katip.cabal
@@ -1,5 +1,5 @@
 name:                katip
-version:             0.1.0.0
+version:             0.1.1.0
 synopsis:            A structured logging framework.
 description:
   Katip is a structured logging framework. See README.md for more details.
@@ -64,9 +64,9 @@
                , unix >= 2.5 && < 2.8
                , unordered-containers >= 0.2 && < 0.3
                , monad-control >= 1.0 && < 1.1
-               , mtl
-               , transformers-base
-               , resourcet
+               , mtl >= 2.2 && < 2.3
+               , transformers-base >= 0.4.1 && < 0.5
+               , resourcet >= 1.1 && < 1.2
 
   hs-source-dirs:      src
   default-language:    Haskell2010
diff --git a/src/Katip/Core.hs b/src/Katip/Core.hs
--- a/src/Katip/Core.hs
+++ b/src/Katip/Core.hs
@@ -18,13 +18,13 @@
 import           Control.AutoUpdate
 import           Control.Concurrent
 import           Control.Lens
-import           Control.Monad
 import           Control.Monad.Base
 import           Control.Monad.Catch
 import           Control.Monad.IO.Class
 import           Control.Monad.Trans.Class
 import           Control.Monad.Trans.Control
 import           Control.Monad.Trans.Either
+import           Control.Monad.Trans.Except
 import           Control.Monad.Trans.Maybe
 import           Control.Monad.Trans.Reader
 import           Control.Monad.Trans.Resource
@@ -411,7 +411,7 @@
 payloadObject :: LogItem a => Verbosity -> a -> A.Object
 payloadObject verb a = case FT.foldMap (flip payloadKeys a) [(V0)..verb] of
     AllKeys -> toObject a
-    SomeKeys ks -> HM.filterWithKey (\ k _ -> k `elem` ks) $ toObject a
+    SomeKeys ks -> HM.filterWithKey (\ k _ -> k `FT.elem` ks) $ toObject a
 
 
 -------------------------------------------------------------------------------
@@ -551,6 +551,8 @@
 instance Katip m => Katip (EitherT s m) where
     getLogEnv = lift getLogEnv
 
+instance Katip m => Katip (ExceptT s m) where
+    getLogEnv = lift getLogEnv
 
 instance Katip m => Katip (MaybeT m) where
     getLogEnv = lift getLogEnv
@@ -624,7 +626,7 @@
         <*> _logEnvTimer
         <*> pure (_logEnvNs <> ns)
         <*> pure loc
-      forM_ (M.elems _logEnvScribes) $ \ (Scribe h) -> h item
+      FT.forM_ (M.elems _logEnvScribes) $ \ (Scribe h) -> h item
 
 
 -------------------------------------------------------------------------------