diff --git a/Plot-ho-matic.cabal b/Plot-ho-matic.cabal
--- a/Plot-ho-matic.cabal
+++ b/Plot-ho-matic.cabal
@@ -1,5 +1,5 @@
 name:                Plot-ho-matic
-version:             0.1.0.0
+version:             0.2.0.0
 synopsis:            Real-time line plotter for protobuf-like data
 license:             BSD3
 license-file:        LICENSE
diff --git a/src/Plotter.hs b/src/Plotter.hs
--- a/src/Plotter.hs
+++ b/src/Plotter.hs
@@ -24,7 +24,7 @@
                          , lvMaxHist :: Int
                          }
 
-newChannel :: (PB.ReflectDescriptor a, PB.Wire a) => String -> PbTree a -> IO (Channel, CC.Chan a)
+newChannel :: (PB.ReflectDescriptor a, PB.Wire a) => String -> PbTree a -> IO (Channel, a -> IO ())
 newChannel name pbTree = do
   time0 <- getCurrentTime
   
@@ -56,7 +56,7 @@
         s <- CC.readMVar seqMv
         return $ map (\(x,y,z) -> (PB.messagePut x,y,z)) $ F.toList s
 
-  return (retChan, seqChan)
+  return (retChan, CC.writeChan seqChan)
 
 runPlotter :: [Channel] -> [CC.ThreadId] -> IO ()
 runPlotter channels backgroundThreadsToKill = do