--- a/EditTextView.st	Thu Nov 28 04:27:47 2013 +0000
+++ b/EditTextView.st	Thu Nov 28 15:29:00 2013 +0100
@@ -2150,10 +2150,7 @@
     ].
 
     cursorType == #block ifTrue:[
-        super drawVisibleLine:cursorVisibleLine
-                          col:cursorCol
-                         with:fgColor
-                          and:bgColor.
+        super drawVisibleLine:cursorVisibleLine col:cursorCol with:fgColor and:bgColor.
         ^ self
     ].
     x := (self xOfCol:cursorCol inVisibleLine:cursorVisibleLine) - viewOrigin x.
@@ -2164,9 +2161,8 @@
         super redrawVisibleLine:cursorVisibleLine col:cursorCol.
 
         char := self characterUnderCursor asString.
-        self paint:bgColor.
-        self displayRectangleX:x y:y
-                         width:(font widthOf:char) height:fontHeight.
+        self paint:bgColor.                       
+        self displayRectangleX:x y:y width:(font widthOf:char) height:fontHeight-2.
     ] ifFalse:[
         self paint:bgColor.
         cursorType == #ibeam ifTrue:[
@@ -8507,10 +8503,10 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.597 2013-11-11 20:43:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.598 2013-11-28 14:29:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.597 2013-11-11 20:43:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.598 2013-11-28 14:29:00 cg Exp $'
 ! !