diff --git a/components/codetools/stdcodetools.pas b/components/codetools/stdcodetools.pas
index 474cfe94df..4ac5a5df74 100644
--- a/components/codetools/stdcodetools.pas
+++ b/components/codetools/stdcodetools.pas
@@ -3133,6 +3133,7 @@ function TStandardCodeTool.ReplaceWords(IdentList: TStrings;
     CurSource: string;
     i: integer;
   begin
+    CurSource:=ACode.Source;
     MaxPos:=length(CurSource);
     StartPos:=1;
     // go through all source parts between compiler directives