diff --git a/components/codetools/sourcelog.pas b/components/codetools/sourcelog.pas
index cb1a4fa396..8dd60dc113 100644
--- a/components/codetools/sourcelog.pas
+++ b/components/codetools/sourcelog.pas
@@ -704,6 +704,7 @@ begin
 end;
 
 function TSourceLog.LineColIsSpace(Line, Column: integer): boolean;
+// check if there is a non space character in front of or at Line,Column
 var
   p: PChar;
   rg: PLineRange;
diff --git a/components/codetools/stdcodetools.pas b/components/codetools/stdcodetools.pas
index 3c667acbdd..e42ea6c03a 100644
--- a/components/codetools/stdcodetools.pas
+++ b/components/codetools/stdcodetools.pas
@@ -3577,6 +3577,7 @@ var
 begin
   Result:=false;
   Operand:='';
+  if CursorPos.Code.LineColIsSpace(CursorPos.Y,CursorPos.X) then exit;
   BuildTreeAndGetCleanPos(trAll,CursorPos,CleanPos,[]);
   Node:=FindDeepestNodeAtPos(CleanPos,true);
   StartPos:=FindStartOfTerm(CleanPos,NodeTermInType(Node));