diff --git a/components/fpcunit/guitestrunner.pas b/components/fpcunit/guitestrunner.pas
index 59a37d6e17..4c3f1a0d03 100644
--- a/components/fpcunit/guitestrunner.pas
+++ b/components/fpcunit/guitestrunner.pas
@@ -255,6 +255,7 @@ procedure TGUITestRunner.SaveTree;
 var
   i: integer;
 begin
+  FConfStore.EraseSection('Tests');
   for i := 0 to TestTree.Items.Count - 1 do
     FConfStore.WriteBool('Tests', MakeTestPath(TestTree.Items[i]), TestTree.Items[i].StateIndex = Ord(tsChecked));
 end;