diff --git a/components/codetools/sourcelog.pas b/components/codetools/sourcelog.pas
index ff3ee9f815..26af97e28c 100644
--- a/components/codetools/sourcelog.pas
+++ b/components/codetools/sourcelog.pas
@@ -255,7 +255,7 @@ begin
         end;
       end;
     else
-      inc(p);
+      inc(Src);
     end;
   until false;
   SetLength(Result,NewLength);