diff --git a/CHANGES.md b/CHANGES.md
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -1,3 +1,7 @@
+## 0.4.0.1
+
+- Fix Each These instance
+
 ## 0.4
 
 - Initial release, splitted of `strict-base-types`
diff --git a/src/Data/Strict/Lens.hs b/src/Data/Strict/Lens.hs
--- a/src/Data/Strict/Lens.hs
+++ b/src/Data/Strict/Lens.hs
@@ -106,7 +106,7 @@
 
 instance (a ~ a', b ~ b') => Each (These a a') (These b b') a b where
     each f (This a)    = This <$> f a
-    each f (That b)    = This <$> f b
+    each f (That b)    = That <$> f b
     each f (These a b) = These <$> f a <*> f b
 
 -- | A 'Control.Lens.Traversal' of the first half of a 'These', suitable for use with "Control.Lens".
diff --git a/strict-lens.cabal b/strict-lens.cabal
--- a/strict-lens.cabal
+++ b/strict-lens.cabal
@@ -1,5 +1,5 @@
 name:               strict-lens
-version:            0.4
+version:            0.4.0.1
 synopsis:           Lenses for types in strict package
 category:           Data, Lenses
 description:        Lenses for types in strict package.