diff --git a/tests/utils/libtar.pas b/tests/utils/libtar.pas
index 93d793a99d..9110bb0ba5 100644
--- a/tests/utils/libtar.pas
+++ b/tests/utils/libtar.pas
@@ -802,7 +802,6 @@ BEGIN
     ON EFOpenError DO
       BEGIN
         Writeln(stderr,'LibTar error: unable to open file "',Filename,'" for reading.');
-        S.Free;
         exit;
       END;
   END;
@@ -813,7 +812,7 @@ BEGIN
     AddFile:=true;
   FINALLY
     S.Free
-    END;
+  END;
 END;