diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+0.9.0.10
+---
+* Fix a nasty space leak
+
 0.9.0.9
 ---
 * Add option to remember the min/max ranges past the view window
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.9.0.9
+version:             0.9.0.10
 synopsis:            Real-time line plotter for generic data
 license:             BSD3
 license-file:        LICENSE
diff --git a/src/PlotHo/GraphWidget.hs b/src/PlotHo/GraphWidget.hs
--- a/src/PlotHo/GraphWidget.hs
+++ b/src/PlotHo/GraphWidget.hs
@@ -79,9 +79,15 @@
         let f :: ((Double, Double), (Double, Double)) -> (Double, Double)
                  -> ((Double, Double), (Double, Double))
             f ((minX, maxX), (minY, maxY)) (x, y) =
-              ( (min minX x, max maxX x)
-              , (min minY y, max maxY y)
+              newMinX `seq` newMaxX `seq` newMinY `seq` newMaxY `seq`
+              ( (newMinX, newMaxX)
+              , (newMinY, newMaxY)
               )
+              where
+                newMinX = min minX x
+                newMaxX = max maxX x
+                newMinY = min minY y
+                newMaxY = max maxY y
 
             pcs :: [(Double, Double)]
             pcs = concatMap (concat . snd) namePcs