--- a/EditTextView.st	Tue Nov 19 11:46:42 2013 +0000
+++ b/EditTextView.st	Mon Jan 13 11:47:09 2014 +0000
@@ -2172,10 +2172,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.
@@ -2186,9 +2183,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:[
@@ -8660,11 +8656,11 @@
 !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 $'
 !
 
 version_HG