diff --git a/rtl/wii/system.pp b/rtl/wii/system.pp
index 5116f90660..17172ad332 100644
--- a/rtl/wii/system.pp
+++ b/rtl/wii/system.pp
@@ -120,7 +120,7 @@ End;
 var
  execpathstr : shortstring;
 
-function paramstr(l: longint) : string;
+function paramstr(l: longint) : shortstring;
  begin
    { stricly conforming POSIX applications  }
    { have the executing filename as argv[0] }
diff --git a/rtl/wii/wiih.inc b/rtl/wii/wiih.inc
index 946286da67..2fa6e86edc 100644
--- a/rtl/wii/wiih.inc
+++ b/rtl/wii/wiih.inc
@@ -44,9 +44,9 @@ type
   end;
   PFileIO = ^TFileIO;
 
-  TDoMkdir  = procedure (const s: string);
-  TDoRmdir  = procedure (const s: string);
-  TDoChdir  = procedure (const s: string);
+  TDoMkdir  = procedure (const s: shortstring);
+  TDoRmdir  = procedure (const s: shortstring);
+  TDoChdir  = procedure (const s: shortstring);
   TDoGetdir = procedure (DriveNr: byte; var Dir: ShortString);
 
   TDirIO = packed record