--- a/EditTextView.st	Wed May 10 04:30:46 1995 +0200
+++ b/EditTextView.st	Fri May 12 20:25:18 1995 +0200
@@ -28,7 +28,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	    All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.27 1995-05-09 01:55:23 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.28 1995-05-12 18:23:52 claus Exp $
 '!
 
 !EditTextView class methodsFor:'documentation'!
@@ -49,7 +49,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.27 1995-05-09 01:55:23 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.28 1995-05-12 18:23:52 claus Exp $
 "
 !
 
@@ -127,6 +127,10 @@
     ^ super getListFromModel
 !
 
+argForChangeMessage
+    ^ self contents
+!
+
 accept
     "accept the current contents by executing the accept-action and/or
      changeMessage."
@@ -145,7 +149,7 @@
      "/
      "/ ST-80 way of doing it
      "/
-     self sendChangeMessageWith:self contents.
+     self sendChangeMessageWith:self argForChangeMessage.
 
     lockUpdates := false.
 ! !