diff --git a/rtl/dos/go32v1/system.pp b/rtl/dos/go32v1/system.pp
index da4115538f..38ab6f99b3 100644
--- a/rtl/dos/go32v1/system.pp
+++ b/rtl/dos/go32v1/system.pp
@@ -542,7 +542,7 @@ begin
 end;
 
 
-procedure getdir(drivenr : byte;var dir : string);
+procedure getdir(drivenr : byte;var dir : shortstring);
 var
   temp : array[0..255] of char;
   sof  : pchar;
@@ -609,7 +609,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.9  1998-09-14 10:48:03  peter
+  Revision 1.10  1998-11-16 14:15:01  pierre
+    * changed getdir(byte,string) to getdir(byte,shortstring)
+
+  Revision 1.9  1998/09/14 10:48:03  peter
     * FPC_ names
     * Heap manager is now system independent
 
diff --git a/rtl/dos/go32v2/system.pp b/rtl/dos/go32v2/system.pp
index 0e67bd0061..bb389c1d45 100644
--- a/rtl/dos/go32v2/system.pp
+++ b/rtl/dos/go32v2/system.pp
@@ -1117,7 +1117,7 @@ begin
 end;
 
 
-procedure getdir(drivenr : byte;var dir : string);
+procedure getdir(drivenr : byte;var dir : shortstring);
 var
   temp : array[0..255] of char;
   i    : longint;
@@ -1225,7 +1225,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.22  1998-10-26 14:49:46  pierre
+  Revision 1.23  1998-11-16 14:15:02  pierre
+    * changed getdir(byte,string) to getdir(byte,shortstring)
+
+  Revision 1.22  1998/10/26 14:49:46  pierre
    * system debug info output to stderr
 
   Revision 1.21  1998/10/20 07:34:07  pierre
diff --git a/rtl/os2/sysos2.pas b/rtl/os2/sysos2.pas
index 124bce1c55..0ff5bd1061 100644
--- a/rtl/os2/sysos2.pas
+++ b/rtl/os2/sysos2.pas
@@ -595,7 +595,7 @@ begin
     DosDir($3b,s);
 end;
 
-procedure getdir(drivenr : byte;var dir : string);
+procedure getdir(drivenr : byte;var dir : shortstring);
 
 {Written by Michael Van Canneyt.}
 
diff --git a/rtl/win32/syswin32.pp b/rtl/win32/syswin32.pp
index ce7abea4b5..cc33451be6 100644
--- a/rtl/win32/syswin32.pp
+++ b/rtl/win32/syswin32.pp
@@ -581,7 +581,7 @@ procedure chdir(const s:string);[IOCHECK];
   dirfn(TDirFnType(@SetCurrentDirectory),s);
  end;
 
-procedure getdir(drivenr:byte;var dir:string);
+procedure getdir(drivenr:byte;var dir:shortstring);
  const
   Drive:array[0..3]of char=(#0,':',#0,#0);
  var
@@ -757,7 +757,10 @@ end.
 
 {
   $Log$
-  Revision 1.22  1998-10-27 15:07:16  florian
+  Revision 1.23  1998-11-16 14:14:58  pierre
+    * changed getdir(byte,string) to getdir(byte,shortstring)
+
+  Revision 1.22  1998/10/27 15:07:16  florian
     + Is* flags added
     + IsLibrary works also