diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -80,10 +80,18 @@
 
 * Eigth version. Added a new way to compare the results for processment of the uniqVec03 executable. Added the fifth command line argument to control this
 comparisons. Added a new lightweight dependency of lists-flines. Changed the names of the executables.
-uniqVec01 -> linVariants
+
+uniqVec01 -> lineVariants
+
 uniqVec02 -> rewritePoem
+
 uniqVec03 -> processText
 
 ## 0.8.0.1 -- 2020-10-05
 
-* Eigth version. Fixed issue with wrong import statements order in the code for processText executable.
+* Eigth version revised A. Fixed issue with wrong import statements order in the code for processText executable.
+
+## 0.8.0.2 -- 2020-10-05
+
+* Eigth version revised B. Fixed issue with Sturges' rule and the respective function in the processText executable. For more information, please, see:
+Sturges H. (1926). The choice of a class-interval. J. Amer. Statist. Assoc., 21, 65-66.
diff --git a/Proportion/Main.hs b/Proportion/Main.hs
--- a/Proportion/Main.hs
+++ b/Proportion/Main.hs
@@ -99,16 +99,16 @@
 
 getIntervalsN :: String -> [String] -> Int
 getIntervalsN xs yss
-  | xs == "s" = sterdgess (length yss)
+  | xs == "s" = sturgesH (length yss)
   | xs == "l" = levynskyiMod (length yss)
   | otherwise = fromMaybe 9 (readMaybe xs::(Maybe Int))
 {-# INLINE getIntervalsN #-}
 
-sterdgess :: Int -> Int
-sterdgess n
-  | compare n 0 == GT = ceiling (3.322 * logBase 10 (int2Float n)) + 1
+sturgesH :: Int -> Int
+sturgesH n
+  | compare n 0 == GT = ceiling (logBase 2 (int2Float n))
   | otherwise = error $ "sterdgess: undefined for the argument " ++ show n ++ newLineEnding
-{-# INLINE sterdgess #-}
+{-# INLINE sturgesH #-}
 
 -- | According to @В. П. Левинський@ (V. P. Levynskyi) from @Опря А. Т. Статистика (модульний варіант з програмованою формою контролю знань).
 -- Навч. посіб. --- К.: Центр учбової літератури, 2012. --- 448 с. ISBN 978-611-01-0266-7@) page 60. Always return odd values.
@@ -119,7 +119,7 @@
   | compare n 300 == LT = 13
   | compare n 400 == LT = 15
   | compare n 500 == LT = 17
-  | otherwise = let !k = sterdgess n in if even k then k + 7 else k + 8
+  | otherwise = let !k = sturgesH n in if even k then k + 7 else k + 8
        where g n
               | compare n 60 == GT = 9
               | compare n 40 == GT = 7
diff --git a/uniqueness-periods-vector-examples.cabal b/uniqueness-periods-vector-examples.cabal
--- a/uniqueness-periods-vector-examples.cabal
+++ b/uniqueness-periods-vector-examples.cabal
@@ -3,7 +3,7 @@
 -- http://haskell.org/cabal/users-guide/
 
 name:                uniqueness-periods-vector-examples
-version:             0.8.0.1
+version:             0.8.0.2
 synopsis:            Usage examples for the uniqueness-periods-vector series of packages
 description:         Usage examples for the uniqueness-periods-vector series of packages. Several executables are planned to demonstrate the libraries work.
 homepage:            https://hackage.haskell.org/package/uniqueness-periods-vector-examples