diff --git a/rtl/objpas/sysutils/sysstr.inc b/rtl/objpas/sysutils/sysstr.inc
index 53b74189d0..ec8f253269 100644
--- a/rtl/objpas/sysutils/sysstr.inc
+++ b/rtl/objpas/sysutils/sysstr.inc
@@ -707,9 +707,7 @@ begin
 end ;
 
 
-{   AdjustLineBreaks returns S with all CR characters not followed by LF
-    replaced with CR/LF  }
-//  under Linux all CR characters or CR/LF combinations should be replaced with LF
+{  Change CRLF, CR or LF with the default for the current platform  }
 
 function AdjustLineBreaks(const S: string): string;
 
@@ -717,6 +715,8 @@ begin
   Result:=AdjustLineBreaks(S,DefaultTextLineBreakStyle);
 end;
 
+{  Change CRLF, CR or LF with the indicated style }
+
 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle): string;
 var
   Source,Dest: PChar;