diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 4cf48e911e..d0fb573921 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -268,7 +268,7 @@ function strlen(p:pchar):longint;
 
 { Shortstring functions }
 {$ifdef ver1_0}
-Procedure SetLength (Var S : ShortString; l : Longint);
+Procedure SetLength (Var S : ShortString; l : TStrLenInt);
 {$endif ver1_0}
 Function  Copy(const s:shortstring;index:StrLenInt;count:StrLenInt):shortstring;
 Procedure Delete(Var s:shortstring;index:StrLenInt;count:StrLenInt);
@@ -484,7 +484,10 @@ const
 
 {
   $Log$
-  Revision 1.6  2000-10-21 18:20:17  florian
+  Revision 1.7  2000-10-23 14:00:59  florian
+    * setlength export declaration for 1.0.2 fixed
+
+  Revision 1.6  2000/10/21 18:20:17  florian
     * a lot of small changes:
        - setlength is internal
        - win32 graph unit extended
@@ -502,4 +505,4 @@ const
   Revision 1.2  2000/07/13 11:33:45  michael
   + removed logs
 
-}
\ No newline at end of file
+}