--- a/EditTextView.st	Wed Sep 12 09:26:42 2001 +0200
+++ b/EditTextView.st	Wed Sep 12 21:05:01 2001 +0200
@@ -4879,7 +4879,7 @@
         s := lastString asString.
 
         "remove final cr"
-        s := s copyWithoutLast:1.
+        (s endsWith:Character cr) ifTrue:[s := s copyWithoutLast:1].
 "/        s := s withoutSpaces.        "XXX - replacing text with spaces ..."
         savedSelectStyle := selectStyle.
         selectStyle := nil.
@@ -4963,5 +4963,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.251 2001-09-12 07:25:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.252 2001-09-12 19:05:01 cg Exp $'
 ! !