diff --git a/Control/Wire/Prefab/Accum.hs b/Control/Wire/Prefab/Accum.hs
--- a/Control/Wire/Prefab/Accum.hs
+++ b/Control/Wire/Prefab/Accum.hs
@@ -70,7 +70,7 @@
 accumT1 f x' =
     mkPure $ \dt x ->
         let y = f dt x' x in
-        y `seq` (Right y, accumT f y)
+        y `seq` (Right y, accumT1 f y)
 
 
 -- | Counts from the given vector adding the current input for the next
diff --git a/netwire.cabal b/netwire.cabal
--- a/netwire.cabal
+++ b/netwire.cabal
@@ -1,5 +1,5 @@
 Name:          netwire
-Version:       4.0.3
+Version:       4.0.4
 Category:      Control, FRP
 Synopsis:      Flexible wire arrows for FRP
 Maintainer:    Ertugrul Söylemez <es@ertes.de>