* Patch from Graeme Geldenhuys to avoid compiler warning

git-svn-id: trunk@30309 -

packages/fcl-fpcunit/src/consoletestrunner.pas

@@ -280,6 +280,7 @@ Type
   { TDecoratorTestSuite }
 
   TDecoratorTestSuite = Class(TTestSuite)
+  public
     Procedure  FreeDecorators(T : TTest);
     Destructor Destroy; override;
   end;