diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -25,3 +25,8 @@
 
 * Fifth version. Added a new data type FuncRep a b c to Languages.UniquenessPeriods.Vector.Data module to avoid significant code duplication with further usage. Switched the 
 needed functionality to the new data type variant. 
+
+## 0.5.1.0 -- 2020-10-12
+
+* 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. 
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
@@ -13,7 +13,12 @@
 
 {-# LANGUAGE CPP, BangPatterns #-}
 
-module Languages.UniquenessPeriods.Vector.StrictV where
+module Languages.UniquenessPeriods.Vector.StrictV (
+  uniquenessVariants2GN
+  , uniquenessVariants2GNP
+  , sublistsG
+  , preAppend
+) where
 
 #ifdef __GLASGOW_HASKELL__
 #if __GLASGOW_HASKELL__>=804
@@ -22,10 +27,23 @@
 import Prelude hiding ((<>))
 #endif
 #endif
+#ifdef __GLASGOW_HASKELL__
+#if __GLASGOW_HASKELL__>=710
+/* code that applies only to GHC 7.10.* and higher versions */
+import GHC.Base (mconcat)
+#endif
+#endif
 import qualified Data.Vector as V
-import qualified Data.List as L (permutations,intercalate)
+import qualified Data.List as L (permutations)
 import Languages.UniquenessPeriods.Vector.Data
 
+#ifdef __GLASGOW_HASKELL__
+#if __GLASGOW_HASKELL__==708
+/* code that applies only to GHC 7.8.* */
+mconcat = concat
+#endif
+#endif
+
 -- | Given a [a] consisting of no more than 7 sublists interspersed with the elements of the first argument,
 -- it returns a 'V.Vector' of possible combinations without repeating of the sublists in different order and for each of them appends also
 -- the information about generalized \"uniqueness periods\" (see @uniqueness-periods-vector@ package) to it and finds out
@@ -54,7 +72,7 @@
 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)) . L.intercalate [hd] . preAppend ts [us]) .
+     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
   | otherwise = error "Languages.UniquenessPeriods.Vector.StrictV.uniquenessVariants2GNP: undefined for the empty third argument. "
 
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.0.0
+version:             0.5.1.0
 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