diff --git a/rtl/atari/gemdos.inc b/rtl/atari/gemdos.inc
index 13aea2b60b..d685041da9 100644
--- a/rtl/atari/gemdos.inc
+++ b/rtl/atari/gemdos.inc
@@ -121,4 +121,4 @@ procedure gemdos_pterm(returncode: smallint); syscall 1 76;
 function gemdos_fsfirst(filename: pchar; attr: smallint): longint; syscall 1 78;
 function gemdos_fsnext: smallint; syscall 1 79;
 
-function gemdos_frename(oldname: pchar; newname: pchar): longint; syscall 1 86;
+function gemdos_frename(zero: word; oldname: pchar; newname: pchar): longint; syscall 1 86;
diff --git a/rtl/atari/sysfile.inc b/rtl/atari/sysfile.inc
index 7c2f57b906..9426681fb8 100644
--- a/rtl/atari/sysfile.inc
+++ b/rtl/atari/sysfile.inc
@@ -55,7 +55,7 @@ begin
   DoDirSeparators(p1,p1changeable);
   DoDirSeparators(p2,p2changeable);
 
-  dosResult:=gemdos_frename(p1,p2);
+  dosResult:=gemdos_frename(0,p1,p2);
   if dosResult < 0 then
     Error2InOutRes(dosResult);