diff --git a/rtl/atari/dos.pp b/rtl/atari/dos.pp
index f1aedaecde..8230fab552 100644
--- a/rtl/atari/dos.pp
+++ b/rtl/atari/dos.pp
@@ -216,6 +216,7 @@ begin
   if dosResult < 0 then
     begin
       Error2DosError(dosResult);
+      FindClose(f);
       exit;
     end;