From 39463b45ade78889f5504e5508b3eb62d638f94e Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 3 Nov 2007 17:05:47 +0000
Subject: [PATCH]   * fixed writestr io-check comment

git-svn-id: trunk@9110 -
---
 rtl/inc/text.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/inc/text.inc b/rtl/inc/text.inc
index 75614e0690..f72193c0c7 100644
--- a/rtl/inc/text.inc
+++ b/rtl/inc/text.inc
@@ -1309,7 +1309,7 @@ begin
       newbytes:=t.userdata[ShortStrLenIndex]-oldlen;
 {$ifdef writestr_iolencheck}
       // GPC only gives an io error if {$no-truncate-strings} is active
-      // FPC does not have this setting (it always gives errors when a
+      // FPC does not have this setting (it never gives errors when a
       // a string expression is truncated)
 
       { "disk full" }