--- a/EditTextView.st	Wed Nov 28 13:16:38 2018 +0000
+++ b/EditTextView.st	Tue Mar 19 15:13:59 2019 +0000
@@ -5758,8 +5758,9 @@
             self addToSelectionAfter:[  
                 self cursorToNextWord. 
             ]
-        ] ifFalse:[ 
-            self cursorToNextWord
+        ] ifFalse:[
+            self hasSelection ifTrue:[ self unselect ].
+            self cursorToNextWord.
         ].
         ^self
     ].
@@ -5769,7 +5770,8 @@
             self addToSelectionAfter:[      
                 self cursorToPreviousWord. 
             ]
-        ] ifFalse:[ 
+        ] ifFalse:[
+            self hasSelection ifTrue:[ self unselect ].
             self cursorToPreviousWord.                                
         ].
         ^self
@@ -5964,7 +5966,7 @@
 
     "Modified: / 06-02-1998 / 11:59:59 / stefan"
     "Modified: / 14-07-2011 / 12:08:28 / cg"
-    "Modified: / 11-10-2017 / 23:08:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 19-03-2019 / 15:04:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 executeKeyboardMacro:cmdMacro