--- a/EditTextView.st	Tue Feb 17 11:48:01 2015 +0100
+++ b/EditTextView.st	Wed Feb 18 14:13:39 2015 +0100
@@ -2269,7 +2269,7 @@
     "draw the cursor when the focus is in the view."
 
     self hasSelection ifTrue:[
-        ^ super redrawVisibleLine:cursorVisibleLine col:cursorCol.
+        ^ super redrawVisibleLine:cursorVisibleLine col:(cursorCol max:1).
     ].
     cursorType == #none ifTrue:[
         ^ self undrawCursor
@@ -8724,10 +8724,10 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.633 2015-02-16 01:09:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.634 2015-02-18 13:13:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.633 2015-02-16 01:09:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.634 2015-02-18 13:13:39 cg Exp $'
 ! !