diff --git a/elevator.cabal b/elevator.cabal
--- a/elevator.cabal
+++ b/elevator.cabal
@@ -1,5 +1,5 @@
 name:                elevator
-version:             0.1.1
+version:             0.1.1.1
 synopsis:            Immediately lifts to a desired level
 description:         This package provides 'elevate' function which composes 'lift'-like transformations automatically.
 homepage:            https://github.com/fumieval/elevator
diff --git a/src/Control/Elevator.hs b/src/Control/Elevator.hs
--- a/src/Control/Elevator.hs
+++ b/src/Control/Elevator.hs
@@ -30,6 +30,10 @@
 import Data.Monoid
 import Control.Monad.ST
 
+#ifndef MIN_VERSION_transformers
+#define MIN_VERSION_transformers(x,y,z) 1
+#endif
+
 #if MIN_VERSION_transformers(0,4,0)
 import Control.Monad.Trans.Except
 #else
@@ -146,7 +150,7 @@
     ||> lift . toLoft1
 #else
 instance (Error e, Monad m, Tower m) => Tower (ErrorT e m) where
-  type Floors (ExceptT e m) = Either e
+  type Floors (ErrorT e m) = Either e
     :> Floors1 m
   toLoft = ErrorT . return
     ||> lift . toLoft1