diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,5 @@
 # Revision history for typed-session-state-algorithm
 
-## 0.1.0.0 -- YYYY-mm-dd
+## 0.1.0.1
 
-* First version. Released on an unsuspecting world.
+*Fix st min value must be -1. 
diff --git a/src/TypedSession/State/Utils.hs b/src/TypedSession/State/Utils.hs
--- a/src/TypedSession/State/Utils.hs
+++ b/src/TypedSession/State/Utils.hs
@@ -68,7 +68,7 @@
       minVal = minimum vals
       tmap = IntMap.fromList $ zip (L.nub $ L.sort vals) [minVal, minVal + 1 ..]
       vals' = fmap (\k -> fromJust $ IntMap.lookup k tmap) vals
-   in (IntMap.fromList $ zip keys vals', (minimum vals', maximum vals'))
+   in (IntMap.fromList $ zip keys vals', (-1, maximum vals'))
 
 replaceList :: C.SubMap -> [Int] -> [Int]
 replaceList sbm ls = fmap (\k -> fromMaybe k $ IntMap.lookup k sbm) ls
diff --git a/typed-session-state-algorithm.cabal b/typed-session-state-algorithm.cabal
--- a/typed-session-state-algorithm.cabal
+++ b/typed-session-state-algorithm.cabal
@@ -20,7 +20,7 @@
 -- PVP summary:     +-+------- breaking API changes
 --                  | | +----- non-breaking API additions
 --                  | | | +--- code changes with no API change
-version:            0.1.0.0
+version:            0.1.0.1
 
 -- A short (one-line) description of the package.
 synopsis: Automatically generate status for typed-session.