diff --git a/rtl/atari/system.pp b/rtl/atari/system.pp
index 89bcaadac7..60efcc1951 100644
--- a/rtl/atari/system.pp
+++ b/rtl/atari/system.pp
@@ -133,9 +133,11 @@ var
 {*****************************************************************************
                          System Dependent Exit code
 *****************************************************************************}
+procedure haltproc(e:longint); cdecl; external name '_haltproc';
+
 Procedure system_exit;
 begin
-  gemdos_pterm(ExitCode);
+  haltproc(ExitCode);
 end;
 
 {*****************************************************************************