diff --git a/components/codetools/linkscanner.pas b/components/codetools/linkscanner.pas
index 1f364f881a..a7247b2bcb 100644
--- a/components/codetools/linkscanner.pas
+++ b/components/codetools/linkscanner.pas
@@ -1294,7 +1294,7 @@ begin
   Dir.Code:=aCode;
   Dir.SrcPos:=aSrcPos;
   l:=0;
-  r:=FDirectivesCount;
+  r:=FDirectivesCount-1;
   while l<=r do begin
     m:=(l+r) div 2;
     cmp:=CompareLSDirective(@Dir,DirectivesSorted[m]);