diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 5c05ddfdb7..17ebe455aa 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -323,7 +323,7 @@ Function  SeekEOF (Var t:Text):Boolean;
 Function  SeekEOLn:Boolean;
 Function  SeekEOF:Boolean;
 Procedure SetTextBuf(Var f:Text; Var Buf);
-Procedure SetTextBuf(Var f:Text; Var Buf; Size:Word);
+Procedure SetTextBuf(Var f:Text; Var Buf; Size:Longint);
 
 
 {****************************************************************************
@@ -395,7 +395,10 @@ const
 
 {
   $Log$
-  Revision 1.61  1999-07-05 20:04:28  peter
+  Revision 1.62  1999-08-19 11:16:13  peter
+    * settextbuf size is now longint
+
+  Revision 1.61  1999/07/05 20:04:28  peter
     * removed temp defines
 
   Revision 1.60  1999/07/03 01:24:21  peter
diff --git a/rtl/inc/text.inc b/rtl/inc/text.inc
index 917df673f3..78491865ce 100644
--- a/rtl/inc/text.inc
+++ b/rtl/inc/text.inc
@@ -353,7 +353,7 @@ End;
 Procedure SetTextBuf(Var F : Text; Var Buf);[INTERNPROC: In_settextbuf_file_x];
 
 
-Procedure SetTextBuf(Var F : Text; Var Buf; Size : Word);
+Procedure SetTextBuf(Var F : Text; Var Buf; Size : Longint);
 Begin
   TextRec(f).BufPtr:=@Buf;
   TextRec(f).BufSize:=Size;
@@ -945,7 +945,10 @@ end;
 
 {
   $Log$
-  Revision 1.52  1999-08-03 21:58:45  peter
+  Revision 1.53  1999-08-19 11:16:14  peter
+    * settextbuf size is now longint
+
+  Revision 1.52  1999/08/03 21:58:45  peter
     * small speed improvements
 
   Revision 1.51  1999/07/26 09:43:24  florian