diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -16,3 +16,7 @@
 
 * Fourth version. Added new functions halfsplit1G and halfsplit2G to extend the functionality.
 
+## 0.4.1.0 -- 2023-11-06
+
+* Fourth version revised A. Fixed issue with last line of the halfsplit1G function.
+
diff --git a/Phladiprelio/Halfsplit.hs b/Phladiprelio/Halfsplit.hs
--- a/Phladiprelio/Halfsplit.hs
+++ b/Phladiprelio/Halfsplit.hs
@@ -55,7 +55,7 @@
            4 -> let us = (replicate (lt2 - ly2) [replicate l0 ' ']) `mappend` reverse (map reverse y2s) in (mconcat us, mconcat t2s)
            5 -> let us = (replicate (lt2 - ly2) [replicate l0 ' ']) `mappend` y2s
                     ks = reverse . map reverse $ t2s in (mconcat us, mconcat ks)
-           _ -> let us = reverse ys in (if rrr == 0 then map show us else replicate l0 ' ':map show us, map show ts) in (\(rs, qs) -> mergePartsLine n (appendstr `mappend` "\n") rs qs) $ r
+           _ -> let us = reverse ys in (if rrr == 0 then map show us else replicate l0 ' ':map show us, map show ts) in ((\(rs, qs) -> mergePartsLine n (appendstr `mappend` "\n") rs qs) r) `mappend` appendstr
               where (ys,ts) = splitAt l xs 
                     (l,rrr) = length xs `quotRem` 2
                     l0 = length . show . head $ xs 
diff --git a/halfsplit.cabal b/halfsplit.cabal
--- a/halfsplit.cabal
+++ b/halfsplit.cabal
@@ -1,6 +1,6 @@
 cabal-version:      2.4
 name:               halfsplit
-version:            0.4.0.0
+version:            0.4.1.0
 
 -- A short (one-line) description of the package.
 synopsis:           A library to provide special kind of two-column output for Phladiprelio.