diff --git a/ALANN/Program.fs b/ALANN/Program.fs
index f3cdbb205341431b1fa5b94af3e1f94cbfd371c7..46c3f88557194a802808ace8c843e32729b2bbd5 100644
--- a/ALANN/Program.fs
+++ b/ALANN/Program.fs
@@ -115,13 +115,10 @@ let main argv =
         let sc = belief.Stamp.SC
         let c = belief.J.TV.C
 
-        // update retention value
-        belief.Stamp.Retention <- calcRetentionValue belief
-
         // if list is beyond capacity remove lowest retention value
         let beliefs = 
             if state.Beliefs |> List.length > 20 then
-                let min = state.Beliefs |> List.minBy (fun b -> b.Stamp.Retention)
+                let min = state.Beliefs |> List.minBy (fun b -> calcRetentionValue belief)
                 state.Beliefs |> remove min
             else
                 state.Beliefs