diff --git a/monadLib.cabal b/monadLib.cabal
--- a/monadLib.cabal
+++ b/monadLib.cabal
@@ -1,5 +1,5 @@
 Name:           monadLib
-Version:        3.6
+Version:        3.6.1
 License:        BSD3
 License-file:   LICENSE
 Author:         Iavor S. Diatchki
diff --git a/src/MonadLib.hs b/src/MonadLib.hs
--- a/src/MonadLib.hs
+++ b/src/MonadLib.hs
@@ -644,6 +644,10 @@
   collect (X m) = X (liftM swap (collect m))
     where swap (Right a,w)  = Right (a,w)
           swap (Left x,_)   = Left x
+instance (RunWriterM m j, MonadFix m) => RunWriterM (ContT i m) j where
+  collect (C m) = C $ \k -> fst `liftM`
+                                mfix (\ ~(_,w) -> collect (m (\a -> k (a,w))))
+
 
 -- $WriterM_ExceptionT
 --