diff --git a/components/codetools/stdcodetools.pas b/components/codetools/stdcodetools.pas
index e351e94178..a44d4fdae9 100644
--- a/components/codetools/stdcodetools.pas
+++ b/components/codetools/stdcodetools.pas
@@ -2701,7 +2701,7 @@ begin
     TypeNode:=FindTypeNodeOfDefinition(VarNode);
     MoveCursorToNodeStart(TypeNode);
     ReadNextAtom;
-    if AtomIs(VarType) then begin
+    if UpAtomIs(UpperCaseStr(VarType)) then begin
       // rename the identifier
       MoveCursorToNodeStart(VarNode);
       ReadNextAtom;