diff --git a/components/codetools/stdcodetools.pas b/components/codetools/stdcodetools.pas
index f5a100b0b4..92e6c50de1 100644
--- a/components/codetools/stdcodetools.pas
+++ b/components/codetools/stdcodetools.pas
@@ -4182,7 +4182,7 @@ begin
       // change the type
       ApplyNeeded:=true;
       if not SourceChangeCache.Replace(gtNone,gtNone,
-        CurPos.StartPos,CurPos.EndPos,NewVarName)
+        CurPos.StartPos,CurPos.EndPos,VarType)
       then begin
         RaiseException('Unable to replace type');
       end;