diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -76,3 +76,7 @@
 
 * Sixth version revised A. Removed also mmsyn2-array as a dependency.
 
+## 0.6.2.0 -- 2020-12-16
+
+* Sixth version revised B. Fixed issue with incorrectly defined fold that has led to incorrect some results.
+
diff --git a/MMSyn4.hs b/MMSyn4.hs
--- a/MMSyn4.hs
+++ b/MMSyn4.hs
@@ -99,7 +99,10 @@
 parentCellContents :: Int -> Int -> Array Int [String] -> String
 parentCellContents n i arr
  | n == 0 || i == 0 = []
- | otherwise = foldr1Elems (\x y -> if not . null $ y then y else x) . amap (!! (n - 1)) $ arr
+ | otherwise = (\(x,_,_) -> x) . foldlElems' f ([],0,n) . amap (!! (n - 1)) $ arr
+     where f (e0,m,k) e
+             | m < k && not (null e) = (e,m + 1,k)
+             | otherwise = (e0,m + 1,k)
 
 -- | Change the lengths of element lists by dropping the last empty strings in every element.
 filterNeeded :: Array Int [String] -> Array Int [String]
diff --git a/mmsyn4.cabal b/mmsyn4.cabal
--- a/mmsyn4.cabal
+++ b/mmsyn4.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                mmsyn4
-version:             0.6.1.0
+version:             0.6.2.0
 synopsis:            The "glue" between electronic tables and GraphViz
 description:         The program mmsyn4 converts a specially formated .csv file with a colon as a field separator obtained from the electronic table into a visualized by GraphViz graph.
 homepage:            https://hackage.haskell.org/package/mmsyn4