From 89b17f0d8252ffb7c9789966ee928390a6f7fbea Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 6 Sep 2012 15:00:13 +0000
Subject: [PATCH] codetools: fixed TStandardCodeTool.ReplaceWords

git-svn-id: trunk@38540 -
---
 components/codetools/stdcodetools.pas | 1 +
 1 file changed, 1 insertion(+)

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