diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -30,3 +30,9 @@
 
 * Fifth version revised A. Fixed issue with unnecessary application of the Data.List.intercalate function in the Languages.UniquenessPeriods.Vector.StrictV module that led to 
 inconsistency and (some) divergence in the functions with applied uniquenessVariants2GNP. 
+
+## 0.5.1.1 -- 2020-10-14
+
+
+* Fifth version revised B. Some minor code improvements.
+
diff --git a/Languages/UniquenessPeriods/Vector/StrictV.hs b/Languages/UniquenessPeriods/Vector/StrictV.hs
--- a/Languages/UniquenessPeriods/Vector/StrictV.hs
+++ b/Languages/UniquenessPeriods/Vector/StrictV.hs
@@ -71,9 +71,12 @@
   -> V.Vector ([b],V.Vector b, [a])
 uniquenessVariants2GNP !ts !us whspss vN frep !xs
   | null . sublistsG whspss $ xs = V.empty
-  | not . null $ whspss = let !hd = head whspss in let !ns = take 8 . sublistsG whspss $ xs in
-     V.fromList . map ((\vs -> let !rs = getAC frep $ vs in (rs, (V.map (\f -> f rs) vN), vs)) . mconcat . preAppend ts [hd:us]) .
-       L.permutations . map (hd:) $ ns
+  | not . null $ whspss =
+     let !hd = head whspss
+         !ns = take 8 . sublistsG whspss $ xs
+         !uss = [hd:us] in
+           V.fromList . map ((\vs -> let !rs = getAC frep $ vs in (rs, (V.map (\f -> f rs) vN), vs)) . mconcat . preAppend ts uss) .
+              L.permutations . map (hd:) $ ns
   | otherwise = error "Languages.UniquenessPeriods.Vector.StrictV.uniquenessVariants2GNP: undefined for the empty third argument. "
 
 -- | Inspired by: https://hackage.haskell.org/package/base-4.14.0.0/docs/src/Data.OldList.html#words
diff --git a/uniqueness-periods-vector-common.cabal b/uniqueness-periods-vector-common.cabal
--- a/uniqueness-periods-vector-common.cabal
+++ b/uniqueness-periods-vector-common.cabal
@@ -2,7 +2,7 @@
 --   For further documentation, see http://haskell.org/cabal/users-guide/
 
 name:                uniqueness-periods-vector-common
-version:             0.5.1.0
+version:             0.5.1.1
 synopsis:            Generalization of the dobutokO-poetry-general package functionality
 description:         Generalization of the dobutokO-poetry-general package functionality. Can be used to rearrange 7 sublists in the list to obtain somewhat more suitable list for some purposes.
 homepage:            https://hackage.haskell.org/package/uniqueness-periods-vector-common