diff --git a/components/fpcunit/guitestrunner.pas b/components/fpcunit/guitestrunner.pas
index 9e18eb73f9..ec857dfb7b 100644
--- a/components/fpcunit/guitestrunner.pas
+++ b/components/fpcunit/guitestrunner.pas
@@ -405,9 +405,9 @@ begin
     Canvas.Font.Color := clWhite;
     if Assigned(TestSuite) then
     begin
+      alltests := TestSuite.CountTestCases;
       if alltests - skipsCounter <> 0 then
       begin
-        alltests := TestSuite.CountTestCases;
         if FailureCounter + ErrorCounter = 0 then
           barColor := clGreen;
         Canvas.Brush.Color := barColor;