diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+# 0.1.3.1
+
+* Bumped microlens version.
+
 # 0.1.3.0
 
 * Moved some internally used functions to `Lens.Micro.Internal` in microlens.
diff --git a/microlens-mtl.cabal b/microlens-mtl.cabal
--- a/microlens-mtl.cabal
+++ b/microlens-mtl.cabal
@@ -1,5 +1,5 @@
 name:                microlens-mtl
-version:             0.1.3.0
+version:             0.1.3.1
 synopsis:            microlens support for Reader/Writer/State from mtl
 description:
   This package contains functions (like 'view' or '+=') which work   
@@ -26,7 +26,7 @@
   other-modules:       Lens.Micro.Mtl.Zoom
   -- other-extensions:    
   build-depends:       base >=4.5 && <5
-                     , microlens >=0.1.5.0 && <0.2
+                     , microlens ==0.2.*
                      , mtl >=2.0.1 && <2.3
                      , transformers >=0.2 && <0.5
                      , transformers-compat >=0.4 && <1
diff --git a/src/Lens/Micro/Mtl.hs b/src/Lens/Micro/Mtl.hs
--- a/src/Lens/Micro/Mtl.hs
+++ b/src/Lens/Micro/Mtl.hs
@@ -39,7 +39,6 @@
 import Control.Monad.Trans.Maybe
 -- microlens
 import Lens.Micro
-import Lens.Micro.Extras
 import Lens.Micro.Internal
 -- Internal modules
 import Lens.Micro.Mtl.Zoom
@@ -115,7 +114,7 @@
 @
 -}
 (+=) :: (MonadState s m, Num a) => ASetter s s a a -> a -> m ()
-l += b = State.modify (l +~ b)
+l += x = l %= (+x)
 {-# INLINE (+=) #-}
 
 {- |
@@ -126,7 +125,7 @@
 @
 -}
 (-=) :: (MonadState s m, Num a) => ASetter s s a a -> a -> m ()
-l -= b = State.modify (l -~ b)
+l -= x = l %= (subtract x)
 {-# INLINE (-=) #-}
 
 {- |
@@ -137,7 +136,7 @@
 @
 -}
 (*=) :: (MonadState s m, Num a) => ASetter s s a a -> a -> m ()
-l *= b = State.modify (l *~ b)
+l *= x = l %= (*x)
 {-# INLINE (*=) #-}
 
 {- |
@@ -148,7 +147,7 @@
 @
 -}
 (//=) :: (MonadState s m, Fractional a) => ASetter s s a a -> a -> m ()
-l //= a = State.modify (l //~ a)
+l //= x = l %= (/x)
 {-# INLINE (//=) #-}
 
 class (Zoomed m ~ Zoomed n, MonadState s m, MonadState t n) => Zoom m n s t | m -> s, n -> t, m t -> n, n s -> m where