diff --git a/1-base/lace/source/text/lace-text-cursor.adb b/1-base/lace/source/text/lace-text-cursor.adb
index 5604fd7..d1cca6a 100644
--- a/1-base/lace/source/text/lace-text-cursor.adb
+++ b/1-base/lace/source/text/lace-text-cursor.adb
@@ -161,9 +161,15 @@ is
    function next_Line (Self : in out item;   Trim : in Boolean := False) return String
    is
       use ada.Characters;
+      Token : constant String := next_Token (Self, Delimiter => latin_1.LF,
+                                                   Trim      => Trim);
    begin
-      return next_Token (Self, Delimiter => latin_1.LF,
-                               Trim      => Trim);
+      if Token (Token'Last) = latin_1.CR
+      then
+         return Token (Token'First .. Token'Last - 1);
+      else
+         return Token;
+      end if;
    end next_Line;