diff --git a/src/u_synmemo.pas b/src/u_synmemo.pas
index 9d9777f4..d266a3f8 100644
--- a/src/u_synmemo.pas
+++ b/src/u_synmemo.pas
@@ -1998,6 +1998,8 @@ begin
     exit;
   p := CaretXY;
   line := lineText;
+  if (line.length = 1) or (LogicalCaretXY.X > line.length) then
+    exit;
   if (CaretX = 1) or not (line[LogicalCaretXY.X] in IdentChars) or
     not (line[LogicalCaretXY.X-1] in IdentChars) then
       exit;