--- a/EditTextView.st	Mon Mar 13 14:51:58 2017 +0000
+++ b/EditTextView.st	Fri Mar 17 09:13:53 2017 +0000
@@ -8858,6 +8858,15 @@
     ]
 !
 
+selectWordAtLine:line col:col
+    "select the word at given line/col"
+    super selectWordAtLine:line col:col.
+    cursorLine := selectionEndLine.
+    cursorCol := selectionEndCol + 1.
+
+    "Created: / 16-03-2017 / 23:27:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 selectWordUnderCursor
     "select the word under the cursor"