Ctrl-k-t select first word in line correctly if line length 49 or greater

packages/ide/weditor.pas

@@ -5537,7 +5537,7 @@ begin
     exit
   else
     begin
-       While (StartPos>0) and (S[StartPos-1] in WordChars) do
+       While (StartPos>1) and (S[StartPos-1] in WordChars) do
          Dec(StartPos);
        While (EndPos<Length(S)) and (S[EndPos+1] in WordChars) do
          Inc(EndPos);