--- a/ETxtView.st	Fri Apr 18 21:11:54 1997 +0200
+++ b/ETxtView.st	Sat Apr 19 11:24:45 1997 +0200
@@ -3911,7 +3911,9 @@
      for easier editing. Also typeOfSelection is nilled here."
 
     super selectFromLine:startLine col:startCol toLine:endLine col:endCol.
-    self cursorLine:selectionEndLine col:(selectionEndCol + 1).
+    selectionEndLine notNil ifTrue:[
+        self cursorLine:selectionEndLine col:(selectionEndCol + 1).
+    ].
     typeOfSelection := nil
 !
 
@@ -4030,5 +4032,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.120 1997-04-02 15:32:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.121 1997-04-19 09:24:45 ca Exp $'
 ! !

--- a/EditTextView.st	Fri Apr 18 21:11:54 1997 +0200
+++ b/EditTextView.st	Sat Apr 19 11:24:45 1997 +0200
@@ -3911,7 +3911,9 @@
      for easier editing. Also typeOfSelection is nilled here."
 
     super selectFromLine:startLine col:startCol toLine:endLine col:endCol.
-    self cursorLine:selectionEndLine col:(selectionEndCol + 1).
+    selectionEndLine notNil ifTrue:[
+        self cursorLine:selectionEndLine col:(selectionEndCol + 1).
+    ].
     typeOfSelection := nil
 !
 
@@ -4030,5 +4032,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.120 1997-04-02 15:32:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.121 1997-04-19 09:24:45 ca Exp $'
 ! !