diff --git a/LICENSE b/LICENSE
--- a/LICENSE
+++ b/LICENSE
@@ -1,4 +1,4 @@
-Copyright (c) 2012 David Sorokin <david.sorokin@gmail.com>
+Copyright (c) 2012-2013 David Sorokin <david.sorokin@gmail.com>
 
 All rights reserved.
 
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.2
+version:         0.3
 synopsis:        Simulation experiments with charting for the Aivika library
 description:
     This package complements the Aivika and Aivika Experiment packages with
@@ -46,7 +46,7 @@
                      split >= 0.2.2,
                      data-accessor >= 0.2.2.3,
                      colour >= 2.3.3,
-                     aivika >= 0.5.4,
-                     aivika-experiment >= 0.2.2
+                     aivika >= 0.6,
+                     aivika-experiment >= 0.3
 
     ghc-options:     -O2
diff --git a/examples/BassDiffusion.hs b/examples/BassDiffusion.hs
--- a/examples/BassDiffusion.hs
+++ b/examples/BassDiffusion.hs
@@ -73,14 +73,14 @@
      
 definePerson :: Person -> Array Int Person -> Ref Int -> Ref Int -> Simulation ()
 definePerson p ps potentialAdopters adopters =
-  do stateActivation (personPotentialAdopter p) $
+  do setStateActivation (personPotentialAdopter p) $
        do modifyRef potentialAdopters $ \a -> a + 1
           -- add a timeout
           t <- liftIO $ exprnd advertisingEffectiveness 
           let st  = personPotentialAdopter p
               st' = personAdopter p
           addTimeout st t $ activateState st'
-     stateActivation (personAdopter p) $ 
+     setStateActivation (personAdopter p) $ 
        do modifyRef adopters  $ \a -> a + 1
           -- add a timer that works while the state is active
           let t = liftIO $ exprnd contactRate    -- many times!
@@ -91,9 +91,9 @@
                when (st == Just (personPotentialAdopter p')) $
                  do b <- liftIO $ boolrnd adoptionFraction
                     when b $ activateState (personAdopter p')
-     stateDeactivation (personPotentialAdopter p) $
+     setStateDeactivation (personPotentialAdopter p) $
        modifyRef potentialAdopters $ \a -> a - 1
-     stateDeactivation (personAdopter p) $
+     setStateDeactivation (personAdopter p) $
        modifyRef adopters $ \a -> a - 1
         
 definePersons :: Array Int Person -> Ref Int -> Ref Int -> Simulation ()