--- a/EditTextView.st	Thu Nov 08 17:00:58 2007 +0100
+++ b/EditTextView.st	Fri Nov 16 15:09:39 2007 +0100
@@ -2799,7 +2799,8 @@
     startCol := cursorCol.
     self insertStringAtCursor:aString.
     self selectFromLine:startLine col:startCol
-		 toLine:cursorLine col:(cursorCol - 1)
+                 toLine:cursorLine col:(cursorCol - 1).
+    self makeSelectionVisible.
 !
 
 insertString:aString atCharacterPosition:charPos
@@ -7161,5 +7162,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.419 2007-11-05 16:37:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.420 2007-11-16 14:09:39 mb Exp $'
 ! !