diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,8 @@
 # Changelog for experimenter
 
+Release 0.1.0.12 n 22.03.2021:
+    - Bug fix when decreasing number of evaluations
+
 Release 0.1.0.10 on 15.03.2021:
     - Tried IORef instead of MVar due to deadlocks. Using MVar.
 
diff --git a/experimenter.cabal b/experimenter.cabal
--- a/experimenter.cabal
+++ b/experimenter.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 6ee709c122976d31201211f9328205c21118d5b57800b507d99c7cab43066d74
+-- hash: 74babbc2a0932968985e7a2b1535fb195c4303a3485ec96ba414c071efdc6f9e
 
 name:           experimenter
-version:        0.1.0.10
+version:        0.1.0.12
 synopsis:       Perform scientific experiments stored in a DB, and generate reports.
 description:    Please see the README on GitHub at <https://github.com/schnecki/experimenter#readme>
 category:       Experiment
diff --git a/src/Experimenter/Run.hs b/src/Experimenter/Run.hs
--- a/src/Experimenter/Run.hs
+++ b/src/Experimenter/Run.hs
@@ -552,13 +552,21 @@
         res <- runReplicationResult rands e expId (expNr, repetNr) initSt initInpSt repRess
         transactionSave
         return res
-  repRes <- getRepRes exps repsDone >>= mapM (runRepl exps)
+  repRes <- getRepRes exps repsDone >>= deleteTruncatedRepRes exps >>= mapM (runRepl exps)
   let updated = any fst repRes
       res = map snd repRes
   return (prepUpdated || updated, set preparationResults prepRes $ set evaluationResults res expRes)
   where
     expInitSt = exps ^. experimentsInitialState
     expResId = expRes ^. experimentResultKey
+    deleteTruncatedRepRes :: (MonadIO m) => Experiments a -> [ReplicationResult a] -> DB m [ReplicationResult a]
+    deleteTruncatedRepRes exps' xs
+      | length xs > len = do
+        mapM_ deleteReplicationResult (drop len xs)
+        return (take len xs)
+      | otherwise = return xs
+      where
+        len = exps' ^. experimentsSetup . expsSetupEvaluationReplications
     getRepRes :: (MonadIO m) => Experiments a -> [ReplicationResult a] -> DB m [ReplicationResult a]
     getRepRes exps' repsDone = do
       $(logInfo) $ "Number of loaded replications: " <> tshow (length repsDone)