diff --git a/src/Data/Tuple/Strict.hs b/src/Data/Tuple/Strict.hs
--- a/src/Data/Tuple/Strict.hs
+++ b/src/Data/Tuple/Strict.hs
@@ -41,7 +41,14 @@
 
 import           Control.Applicative (Applicative ((<*>)), (<$>))
 import           Control.DeepSeq     (NFData (..))
+
+#if MIN_VERSION_lens(4,0,0)
+import           Control.Lens.At     (Index)
+import           Control.Lens.Each   (Each(..))
+#else
 import           Control.Lens.Each   (Index, Each(..))
+#endif
+
 import           Control.Lens.Iso    (Strict (..), Swapped (..), iso)
 import           Control.Lens.Indexed (indexed)
 import           Control.Lens.Operators ((<&>))
@@ -134,10 +141,18 @@
 instance Swapped Pair where
   swapped = iso swap swap
 
+
 type instance Index (Pair a b) = Int
 
+#if MIN_VERSION_lens(4,0,0)
+instance (a~a', b~b') => Each (Pair a a') (Pair b b') a b where
+  each f ~(a :!: b) = (:!:) <$> f a <*> f b
+  {-# INLINE each #-}
+#else
 instance (Applicative f, a~a', b~b') => Each f (Pair a a') (Pair b b') a b where
   each f (a :!: b) = (:!:) <$> indexed f (0::Int) a <*> indexed f (1::Int) b
+  {-# INLINE each #-}
+#endif
 
 {-  To be added once they make it to base
 
diff --git a/strict-base-types.cabal b/strict-base-types.cabal
--- a/strict-base-types.cabal
+++ b/strict-base-types.cabal
@@ -1,5 +1,5 @@
 Name:           strict-base-types
-Version:        0.2.1
+Version:        0.2.2
 Synopsis:       Strict variants of the types provided in base.
 Category:       Data
 Description:
@@ -96,7 +96,7 @@
                 Simon Meier <iridcode@gmail.com>
 Maintainer:     Simon Meier <iridcode@gmail.com>
 Copyright:      (c) 2006-2008 by Roman Leshchinskiy
-                (c) 2013 by Simon Meier
+                (c) 2013-2014 by Simon Meier
 Homepage:       https://github.com/meiersi/strict-base-types
 Cabal-Version: >= 1.6
 Build-type:     Simple