--- a/EditTextView.st	Mon Sep 20 15:15:22 1999 +0200
+++ b/EditTextView.st	Mon Sep 20 15:21:48 1999 +0200
@@ -3085,11 +3085,13 @@
             ].
             selectStyle := nil.
 
-            undoAction := [
-                            self cursorLine:selStartLine col:selStartCol.
-                            self deleteCharAtCursor.
-                            self paste:sel.    
-                          ].
+            sel size > 0 ifTrue:[
+                undoAction := [
+                                self cursorLine:selStartLine col:selStartCol.
+                                self deleteCharAtCursor.
+                                self paste:sel.    
+                              ].
+            ].
 
             showMatchingParenthesis ifTrue:[
                 "emacs style parenthesis shower"
@@ -4704,5 +4706,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.214 1999-09-20 13:15:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.215 1999-09-20 13:21:48 cg Exp $'
 ! !