diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -18,3 +18,7 @@
 * Third version. Added new variants of the concatenations. Some code improvements. Fixed several issues with
 consequently going complex words and a prepositions (not very common but actually usable and possible variant).
 Added some improvements to deal with some rare cases.
+
+## 0.3.1.0 -- 2021-08-30
+
+* Third version revised A. Fixed issue with the getBFstL' used with repeated by the first element in the tuples list.
diff --git a/Phonetic/Languages/Ukrainian/PrepareText.hs b/Phonetic/Languages/Ukrainian/PrepareText.hs
--- a/Phonetic/Languages/Ukrainian/PrepareText.hs
+++ b/Phonetic/Languages/Ukrainian/PrepareText.hs
@@ -92,18 +92,16 @@
     if ys == "\1094\1100\1086\1084\1091" then auxiliary3 wwss
     else auxiliary4 wwss), ("\1087\1110\1089\1083\1103",
     if ys == "\1090\1086\1075\1086" && zs == "\1103\1082" then auxiliary2Inner (xs ++ ys ++ zs) (ts:xss)
-    else auxiliary4 wwss), ("\1090\1072\1082", if ys == "\1097\1086" then auxiliary3 wwss else auxiliary4 wwss),
-    ("\1090\1072\1082", if ys == "\1103\1082" then auxiliary3 wwss else auxiliary4 wwss),
+    else auxiliary4 wwss), ("\1090\1072\1082", if (ys == "\1097\1086") || (ys == "\1103\1082")
+    then auxiliary3 wwss else auxiliary4 wwss),
     ("\1090\1080\1084\1095\1072\1089\1086\1084", if ys == "\1103\1082"
     then auxiliary3 wwss else auxiliary4 wwss),
     ("\1090\1086\1084\1091", if ys == "\1103\1082" then auxiliary2Inner (xs ++ "\1081\1072\1082") (zs:ts:xss)
     else auxiliary4 wwss), ("\1091",
     if (ys == "\1079\1074'\1103\1079\1082\1091" || ys == "\1079\1074\x02BC\1103\1079\1082\1091") && zs == "\1079"
     then auxiliary2Inner (xs ++ "\1079\1074\1081\1072\1079\1082\1091" ++ zs) (ts:xss)
-    else auxiliary2Inner "\1091" (ys:zs:ts:xss)),
-    ("\1091", if ys == "\1084\1110\1088\1091" &&
-    zs == "\1090\1086\1075\1086" && ts == "\1103\1082" then auxiliary2Inner (xs ++ ys ++ zs ++ ts) xss
-    else auxiliary4 wwss),
+    else if ys == "\1084\1110\1088\1091" && zs == "\1090\1086\1075\1086" && ts == "\1103\1082"
+    then auxiliary2Inner (xs ++ ys ++ zs ++ ts) xss else auxiliary4 wwss),
     ("\1093\1086\1095", if ys == "\1073\1080" then auxiliary3 wwss
     else auxiliary4 wwss), ("\1093\1086\1095\1072", if ys == "\1073"
     then auxiliary3 wwss else auxiliary4 wwss),
@@ -117,8 +115,8 @@
     if ys == "\1074\1110\1076" then auxiliary3 wwss else auxiliary4 wwss),
     ("\1087\1088\1080",
     if ys == "\1094\1100\1086\1084\1091" then auxiliary3 wwss
-    else auxiliary4 wwss), ("\1090\1072\1082", if ys == "\1097\1086" then auxiliary3 wwss else auxiliary4 wwss),
-    ("\1090\1072\1082", if ys == "\1103\1082" then auxiliary3 wwss else auxiliary4 wwss),
+    else auxiliary4 wwss), ("\1090\1072\1082", if ys == "\1097\1086" || ys == "\1103\1082"
+    then auxiliary3 wwss else auxiliary4 wwss),
     ("\1090\1080\1084\1095\1072\1089\1086\1084", if ys == "\1103\1082"
     then auxiliary3 wwss else auxiliary4 wwss),
     ("\1090\1086\1084\1091", if ys == "\1103\1082" then auxiliary2Inner (xs ++ "\1081\1072\1082") (zs:xss)
diff --git a/phonetic-languages-ukrainian-array.cabal b/phonetic-languages-ukrainian-array.cabal
--- a/phonetic-languages-ukrainian-array.cabal
+++ b/phonetic-languages-ukrainian-array.cabal
@@ -2,7 +2,7 @@
 --  further documentation, see http://haskell.org/cabal/users-guide/
 
 name:                phonetic-languages-ukrainian-array
-version:             0.3.0.0
+version:             0.3.1.0
 synopsis:            Prepares Ukrainian text to be used as a phonetic language text
 description:         Applies needed minimal grammar connections so that the text afterwards can be processed by dobutokO-poetry or phonetic languages approach related programs. Uses arrays instead of vectors.
 homepage:            https://hackage.haskell.org/package/phonetic-languages-ukrainian-array