diff --git a/ide/text/fpcodcmp.pas b/ide/text/fpcodcmp.pas
index 2082b53787..681f62ae54 100644
--- a/ide/text/fpcodcmp.pas
+++ b/ide/text/fpcodcmp.pas
@@ -25,7 +25,7 @@ begin
   if OK then
   begin
     Text:=CodeCompleteWords^.Lookup(WordS,Index);
-    OK:=(Index<>-1);
+    OK:=(Index<>-1) and (length(Text)<>length(WordS));
   end;
   if OK=false then Text:='';
   FPCompleteCodeWord:=OK;
@@ -56,4 +56,4 @@ begin
   CodeCompleteWords:=nil;
 end;
 
-END.
\ No newline at end of file
+END.