diff --git a/packages/fcl-fpcunit/src/fpcunit.pp b/packages/fcl-fpcunit/src/fpcunit.pp
index 0005f7e40b..bc184d91ef 100644
--- a/packages/fcl-fpcunit/src/fpcunit.pp
+++ b/packages/fcl-fpcunit/src/fpcunit.pp
@@ -229,7 +229,7 @@ type
     function CreateResultAndRun: TTestResult; virtual;
     procedure Run(AResult: TTestResult); override;
     function AsString: string;
-    class function AsSuite : TTestSuite;
+    class function Suite : TTestSuite;
     property TestSuiteName: string read GetTestSuiteName write SetTestSuiteName;
     Property ExpectedExceptionFailMessage  : String Read FExpectedExceptionFailMessage;
     Property ExpectedException : TClass Read FExpectedException;
@@ -1013,7 +1013,7 @@ begin
   Result := TestName + '(' + ClassName + ')';
 end;
 
-class function TTestCase.AsSuite: TTestSuite;
+class function TTestCase.Suite: TTestSuite;
 begin
   Result:=TTestSuite.Create(Self.ClassType);
 end;
diff --git a/packages/fcl-fpcunit/src/tests/suitetest.pp b/packages/fcl-fpcunit/src/tests/suitetest.pp
index eeb96b4056..64e79032e1 100644
--- a/packages/fcl-fpcunit/src/tests/suitetest.pp
+++ b/packages/fcl-fpcunit/src/tests/suitetest.pp
@@ -224,7 +224,7 @@ procedure TSuiteTest.testTestCaseAsSuite;
 var
   ts: TTestSuite;
 begin
-  ts := TOneTestCase.AsSuite;
+  ts := TOneTestCase.Suite;
   try
     AssertEquals(1, ts.CountTestCases);
     AssertEquals(1, ts.Tests.Count);