diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,8 +1,12 @@
 # Revision history for monadic-recursion-schemes
 
+## 0.1.11.0 -- 2020-05-21
+
+* add gcataM' which is gcataM variant correspond to recursion-schemes gcata.
+
 ## 0.1.10.0 -- 2020-05-21
 
-* add new member 'gcataM' which is a generalized morphism of catamorphism.
+* add new member gcataM which is a generalized morphism of catamorphism.
 
 ## 0.1.9.1 -- 2020-05-17
 
diff --git a/monadic-recursion-schemes.cabal b/monadic-recursion-schemes.cabal
--- a/monadic-recursion-schemes.cabal
+++ b/monadic-recursion-schemes.cabal
@@ -4,7 +4,7 @@
 -- http://haskell.org/cabal/users-guide/
 
 name:                monadic-recursion-schemes
-version:             0.1.10.0
+version:             0.1.11.0
 synopsis:            Recursion Schemes for Monadic version.
 description:         Yet another recursion schemes for monadic style, depends on recursion-schemes.
 homepage:            https://github.com/cutsea110/monadic-recursion-schemes.git
diff --git a/src/Data/Functor/Foldable/Monadic.hs b/src/Data/Functor/Foldable/Monadic.hs
--- a/src/Data/Functor/Foldable/Monadic.hs
+++ b/src/Data/Functor/Foldable/Monadic.hs
@@ -30,7 +30,7 @@
   , chronoM' -- cochronoM'
 
     -- * Generalized Folding
-  , gcataM
+  , gcataM, gcataM'
 
     -- * Others
   , mutuM, comutuM
@@ -294,3 +294,11 @@
        -> t -> m a
 gcataM k g = liftM extract . cataM phi
   where phi = mapM g <=< k <=< return . fmap duplicate
+
+gcataM' :: (Monad m, Comonad w, Traversable w, Traversable (Base t), Recursive t, b ~ w a)
+        => (Base t (w b) -> m (w (Base t b))) -- ^ Distributive (Base t) w b
+        -> (Base t (w a) -> m a)              -- ^ algebra
+        -> t -> m a
+gcataM' k g = g <=< return . extract <=< c
+  where c = k <=< mapM u . project
+        u = return . duplicate <=< mapM g <=< c