diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -36,5 +36,8 @@
 
 ## 0.5.4.0 -- 2021-10-09
 
-* Fifth version revised C. Changed the behaviour so that it can handle lines with more than 9 words.
+* Fifth version revised D. Changed the behaviour so that it can handle lines with more than 9 words.
 
+## 0.5.4.1 -- 2021-10-09
+
+* Fifth version revised E. Fixed incompleteness of the previous fixing.
diff --git a/Interpreter/StringConversion.hs b/Interpreter/StringConversion.hs
--- a/Interpreter/StringConversion.hs
+++ b/Interpreter/StringConversion.hs
@@ -38,7 +38,7 @@
                           kss = drop 1 tss in
                             if null wss then twoWords `mappend` (' ':unwords kss)
                             else unwords wss `mappend` (' ':twoWords) `mappend` (' ':unwords kss)
- | length (filter (\t -> t >= '1' && [t] <= show (length . words $ xs)) $ contrs) < 2 = xs
+ | length (filter (\t -> if (length . words $ xs) >= 10 then t >= '1' && t <= '9' else t >= '1' && [t] <= show (length . words $ xs)) $ contrs) < 2 = xs
  | otherwise = let cntrs = filter (\t -> if (length . words $ xs) >= 10 then t >= '1' && t <= '9' else t >= '1' && [t] <= show (length . words $ xs)) $ contrs
                    tss = words xs in
                      case length cntrs of
diff --git a/string-interpreter.cabal b/string-interpreter.cabal
--- a/string-interpreter.cabal
+++ b/string-interpreter.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                string-interpreter
-version:             0.5.4.0
+version:             0.5.4.1
 synopsis:            Is used in the phonetic languages approach (e. g. in the recursive mode).
 description:         A library that has commonly used functions for the phonetic-languages implementations that deals with String data.
 homepage:            https://hackage.haskell.org/package/string-interpreter