diff --git a/essence-of-live-coding-gloss.cabal b/essence-of-live-coding-gloss.cabal
--- a/essence-of-live-coding-gloss.cabal
+++ b/essence-of-live-coding-gloss.cabal
@@ -1,5 +1,5 @@
 name:                essence-of-live-coding-gloss
-version:             0.2.0.1
+version:             0.2.1
 synopsis: General purpose live coding framework - Gloss backend
 description:
   essence-of-live-coding is a general purpose and type safe live coding framework.
@@ -32,7 +32,7 @@
 source-repository this
   type:     git
   location: git@github.com:turion/essence-of-live-coding.git
-  tag:      v0.1.0.3
+  tag:      v0.2.1
 
 library
   exposed-modules:
@@ -43,7 +43,7 @@
       base >= 4.11 && < 5
     , syb >= 0.7
     , transformers >= 0.5
-    , essence-of-live-coding >= 0.2.0.1
+    , essence-of-live-coding >= 0.2.1
     , foreign-store >= 0.2
     , gloss >= 1.13
   hs-source-dirs:      src
diff --git a/src/LiveCoding/Gloss/Debugger.hs b/src/LiveCoding/Gloss/Debugger.hs
--- a/src/LiveCoding/Gloss/Debugger.hs
+++ b/src/LiveCoding/Gloss/Debugger.hs
@@ -6,7 +6,7 @@
 import Data.Data
 
 -- transformers
-import Control.Monad.Trans.Writer
+import Control.Monad.Trans.Writer.Strict
 import Control.Monad.Trans.Class
 import Control.Monad.Trans.State.Strict
 
diff --git a/src/LiveCoding/Gloss/PictureM.hs b/src/LiveCoding/Gloss/PictureM.hs
--- a/src/LiveCoding/Gloss/PictureM.hs
+++ b/src/LiveCoding/Gloss/PictureM.hs
@@ -6,7 +6,7 @@
 -- transformers
 import Control.Monad.Trans.Class
 import Control.Monad.Trans.Reader as X
-import Control.Monad.Trans.Writer
+import Control.Monad.Trans.Writer.Strict
 
 -- gloss
 import Graphics.Gloss
@@ -33,10 +33,7 @@
   :: Monad m
   => Cell (PictureT m) a b
   -> Cell m ([Event], a) (Picture, b)
-runPictureT = hoistCellOutput (fmap massageWriterOutput . runWriterT) . runReaderC'
-  where
-    massageWriterOutput :: ((b, s), pic) -> ((pic, b), s)
-    massageWriterOutput ((b, s), pic) = ((pic, b), s)
+runPictureT = runWriterC . runReaderC'
 
 addPicture :: Monad m => Cell (PictureT m) Picture ()
 addPicture = arrM $ lift . tell