--- a/EditTextView.st	Tue Jun 28 23:11:56 2011 +0200
+++ b/EditTextView.st	Tue Jun 28 23:16:03 2011 +0200
@@ -7103,6 +7103,7 @@
     ] ifFalse:[
         cursorCol > 1 ifTrue:[
             self selectFromLine:cursorLine col:1 toLine:cursorLine col:cursorCol-1.
+            cursorCol := 1.
             typeOfSelection := nil
         ]
     ]
@@ -7147,6 +7148,8 @@
     ] ifFalse:[
         cursorCol > 1 ifTrue:[
             self selectFromLine:cursorLine col:cursorCol toLine:cursorLine+1 col:0.
+            cursorLine := cursorLine + 1.
+            cursorCol := 0.
             typeOfSelection := nil
         ]
     ]
@@ -7858,9 +7861,9 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.510 2011-06-28 21:11:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.511 2011-06-28 21:16:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.510 2011-06-28 21:11:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.511 2011-06-28 21:16:03 cg Exp $'
 ! !