diff --git a/moffy-samples-events.cabal b/moffy-samples-events.cabal
--- a/moffy-samples-events.cabal
+++ b/moffy-samples-events.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           moffy-samples-events
-version:        0.2.2.0
+version:        0.2.2.1
 synopsis:       Events for sample codes of moffy
 description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/moffy-samples-events#readme>
 category:       Control
diff --git a/src/Control/Moffy/Samples/Run/TChan.hs b/src/Control/Moffy/Samples/Run/TChan.hs
--- a/src/Control/Moffy/Samples/Run/TChan.hs
+++ b/src/Control/Moffy/Samples/Run/TChan.hs
@@ -21,7 +21,7 @@
 interpretSt h c = M.interpretSt h (liftIO . atomically . writeTChan c)
 
 interpretSt' :: (MonadIO m, Adjustable es es', Ord k) =>
-	HandleSt st m es' -> TVar (Map k v) -> TChan a -> Sig s es ((k, v), a) r -> St st m r
-interpretSt' h vm c = M.interpretSt h \((k, v), x) -> liftIO $ atomically do
-	modifyTVar vm $ insert k v
+	HandleSt st m es' -> TVar (Map k v) -> TChan a -> Sig s es ([(k, v)], a) r -> St st m r
+interpretSt' h vm c = M.interpretSt h \(kvs, x) -> liftIO $ atomically do
+	modifyTVar vm $ flip (Prelude.foldr (uncurry insert)) kvs
 	writeTChan c x