--- a/EditTextView.st	Thu Apr 01 23:46:57 2004 +0200
+++ b/EditTextView.st	Fri Apr 02 00:00:19 2004 +0200
@@ -933,6 +933,8 @@
 
     |prevCursorLine prevCursorCol|
 
+    undoList := redoList := transaction := nil.
+
     prevCursorLine := cursorLine.
     prevCursorCol := cursorCol.
 
@@ -957,12 +959,13 @@
 
     "/ default: stay where it was
     "/ self cursorLine:prevCursorLine col:prevCursorCol.
-
 !
 
 setContents:something
     |selType|
 
+    undoList := redoList := transaction := nil.
+
     selType := typeOfSelection.
     super setContents:something.
     typeOfSelection := selType.
@@ -6010,5 +6013,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.347 2004-04-01 21:46:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.348 2004-04-01 22:00:19 cg Exp $'
 ! !