diff --git a/Simulation/Aivika/Experiment/DeviationChartView.hs b/Simulation/Aivika/Experiment/DeviationChartView.hs
--- a/Simulation/Aivika/Experiment/DeviationChartView.hs
+++ b/Simulation/Aivika/Experiment/DeviationChartView.hs
@@ -221,7 +221,8 @@
                liftIO $ withMVar lock $ \() ->
                  forM_ (zip xs stats) $ \(x, stats) ->
                  do y <- readArray stats i
-                    writeArray stats i $ addSamplingStats x y
+                    let y' = addSamplingStats x y
+                    y' `seq` writeArray stats i y'
      return $ return ()
      
 -- | Plot the deviation chart after the simulation is complete.
diff --git a/Simulation/Aivika/Experiment/FinalHistogramView.hs b/Simulation/Aivika/Experiment/FinalHistogramView.hs
--- a/Simulation/Aivika/Experiment/FinalHistogramView.hs
+++ b/Simulation/Aivika/Experiment/FinalHistogramView.hs
@@ -203,7 +203,7 @@
             do xs <- sequence input
                liftIO $ withMVar lock $ \() ->
                  forM_ (zip xs values) $ \(x, values) ->
-                 modifyIORef values (x :)
+                 x `seq` modifyIORef values (x :)
      return $ return ()
      
 -- | Plot the histogram after the simulation is complete.
diff --git a/Simulation/Aivika/Experiment/FinalXYChartView.hs b/Simulation/Aivika/Experiment/FinalXYChartView.hs
--- a/Simulation/Aivika/Experiment/FinalXYChartView.hs
+++ b/Simulation/Aivika/Experiment/FinalXYChartView.hs
@@ -239,7 +239,7 @@
                i   <- liftSimulation simulationIndex
                liftIO $ withMVar lock $ \() ->
                  forM_ (zip ys' xys) $ \(y', xy) ->
-                 writeArray xy i $ Just (x', y')
+                 x' `seq` y' `seq` writeArray xy i $ Just (x', y')
      return $ return ()
      
 -- | Plot the XY chart after the simulation is complete.
diff --git a/aivika-experiment-chart.cabal b/aivika-experiment-chart.cabal
--- a/aivika-experiment-chart.cabal
+++ b/aivika-experiment-chart.cabal
@@ -1,5 +1,5 @@
 name:            aivika-experiment-chart
-version:         0.2
+version:         0.2.1
 synopsis:        Simulation experiments with charting for the Aivika library
 description:
     This package complements the Aivika and Aivika Experiment packages with
@@ -44,6 +44,6 @@
                      data-accessor >= 0.2.2.3,
                      colour >= 2.3.3,
                      aivika >= 0.5.1,
-                     aivika-experiment >= 0.2
+                     aivika-experiment >= 0.2.1
 
     ghc-options:     -O2