diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -80,3 +80,7 @@
 
 * Sixth version revised B. Fixed issue with incorrectly defined fold that has led to incorrect some results.
 
+## 0.6.3.0 -- 2020-12-16
+
+* Sixth version revised C. Fixed another 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
@@ -29,6 +29,7 @@
 import GHC.Arr
 import EndOfExe (showE)
 import Data.Maybe (isJust,fromJust)
+import Data.Foldable (foldr)
 
 #ifdef __GLASGOW_HASKELL__
 #if __GLASGOW_HASKELL__==708
@@ -98,11 +99,13 @@
 
 parentCellContents :: Int -> Int -> Array Int [String] -> String
 parentCellContents n i arr
- | n == 0 || i == 0 = []
- | 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)
+ | n == 0 = []
+ | ll == 0 = []
+ | otherwise = (\(x, _, _) -> x) . foldr f ([], 0, ll) . amap (!! (n - 1)) $ arr
+     where ll = numElements arr - i - 1
+           f e (e0, m, k)
+             | 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.2.0
+version:             0.6.3.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