diff --git a/components/codetools/tests/testcodecompletion.pas b/components/codetools/tests/testcodecompletion.pas
index ba2bfb1745..71639f1330 100644
--- a/components/codetools/tests/testcodecompletion.pas
+++ b/components/codetools/tests/testcodecompletion.pas
@@ -491,6 +491,7 @@ begin
     'type',
     '  TBird = class',
     '    procedure DoIt(i: specialize TGenList<longint>);',
+    '    procedure DoIt2(i: specialize TGenList<specialize TGenObject<integer>>);',
     '  end;',
     'implementation',
     'end.'],
@@ -504,6 +505,7 @@ begin
     '',
     '  TBird = class',
     '    procedure DoIt(i: specialize TGenList<longint>);',
+    '    procedure DoIt2(i: specialize TGenList<specialize TGenObject<integer>>);',
     '  end;',
     'implementation',
     '',
@@ -511,6 +513,10 @@ begin
     'begin',
     'end;',
     '',
+    'procedure TBird.DoIt2(i: specialize TGenList<specialize TGenObject<integer>>);',
+    'begin',
+    'end;',
+    '',
     'end.']);
 end;
 
@@ -523,6 +529,7 @@ begin
     'type',
     '  TBird = class',
     '    procedure DoIt(i: TGenList<longint>);',
+    '    procedure DoIt2(i: TGenList<TGenObject<longint>>);',
     '  end;',
     'implementation',
     'end.'],
@@ -536,6 +543,7 @@ begin
     '',
     '  TBird = class',
     '    procedure DoIt(i: TGenList<longint>);',
+    '    procedure DoIt2(i: TGenList<TGenObject<longint>>);',
     '  end;',
     'implementation',
     '',
@@ -543,6 +551,10 @@ begin
     'begin',
     'end;',
     '',
+    'procedure TBird.DoIt2(i: TGenList<TGenObject<longint>>);',
+    'begin',
+    'end;',
+    '',
     'end.']);
 end;