--- a/TextView.st	Fri May 30 23:20:49 2014 +0200
+++ b/TextView.st	Sat May 31 04:36:23 2014 +0200
@@ -4597,6 +4597,11 @@
 selectFromLine:startLine col:startCol toLine:endLine col:endCol
     "select a piece of text and redraw that area"
 
+    ((selectionStartLine = startLine)
+      and:[ (selectionStartCol = startCol)
+      and:[ (selectionEndLine = endLine)
+      and:[ (selectionEndCol = endCol) ]]]) ifTrue:[^ self ].
+
     self unselect.
     startLine notNil ifTrue:[
         "new:"
@@ -4879,11 +4884,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.373 2014-04-30 13:57:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.374 2014-05-31 02:36:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.373 2014-04-30 13:57:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.374 2014-05-31 02:36:23 cg Exp $'
 ! !