diff --git a/Tools/StatePlot.hs b/Tools/StatePlot.hs
--- a/Tools/StatePlot.hs
+++ b/Tools/StatePlot.hs
@@ -145,7 +145,7 @@
         (Just a, Just b, m) = foldl' f (Nothing, Nothing, M.empty) es
         f (!minRT, !maxRT, !tracks) e = (orJust min minRT (localTime e), orJust max maxRT (localTime e), M.insert (track e) () tracks)
         orJust f Nothing   x = Just x
-        orJust f (Just x0) x = Just (f x0 x)
+        orJust f (Just !x0) x = Just (f x0 x)
 
     override (ft, tt, nt) = (override' ft (fromTime conf), override' tt (toTime conf), override' nt (forcedNumTracks conf))
     override' x (Just y) = y
diff --git a/splot.cabal b/splot.cabal
--- a/splot.cabal
+++ b/splot.cabal
@@ -1,5 +1,5 @@
 Name: splot
-Version: 0.2.8
+Version: 0.2.9
 License: BSD3
 License-file: LICENSE
 Copyright: Eugene Kirpichov, 2010