diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,8 @@
 # Changelog for polysemy-zoo
 
+## 0.6.0.1 (2019-09-12)
+
+- Fixed the implementation of `atomicPut`
 
 ## 0.6.0.0 (2019-09-05)
 
diff --git a/polysemy-zoo.cabal b/polysemy-zoo.cabal
--- a/polysemy-zoo.cabal
+++ b/polysemy-zoo.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 138a6e0718009344f60c180fe1afffe26e3cf2f9712657e1a0e7c205a9ddebb0
+-- hash: 508b2d70f45ca899d68cc756e99c4a93128f7748848feefea756030db96c9c94
 
 name:           polysemy-zoo
-version:        0.6.0.0
+version:        0.6.0.1
 synopsis:       Experimental, user-contributed effects and interpreters for polysemy
 description:    Please see the README on GitHub at <https://github.com/isovector/polysemy-zoo#readme>
 category:       Polysemy
diff --git a/src/Polysemy/RevState.hs b/src/Polysemy/RevState.hs
--- a/src/Polysemy/RevState.hs
+++ b/src/Polysemy/RevState.hs
@@ -50,8 +50,9 @@
 -- | Sends a new state into the past.
 revPut :: forall s r
         . Member (RevState s) r
-       => Sem r s
-revPut = revState $ \s -> (s, s)
+       => s
+       -> Sem r ()
+revPut s = revState $ \_ -> (s, ())
 
 ------------------------------------------------------------------------------
 -- | Gets the state as sent from the next call to 'revState'
diff --git a/src/Polysemy/Tagged.hs b/src/Polysemy/Tagged.hs
--- a/src/Polysemy/Tagged.hs
+++ b/src/Polysemy/Tagged.hs
@@ -36,7 +36,7 @@
 --             -> 'Sem' r a
 --             -> 'Sem' r a
 -- taggedLocal f m =
---   'tag' @k @('Polysemy.Reader.Reader' i) $ 'Polysemy.Reader.local' @i f ('raise' m)
+--   'tag' \@k \@('Polysemy.Reader.Reader' i) $ 'Polysemy.Reader.local' \@i f ('raise' m)
 -- @
 --
 tag :: forall k e r a