--- a/PopUpList.st	Wed Feb 22 04:41:31 1995 +0100
+++ b/PopUpList.st	Mon Feb 27 11:41:57 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.6 1995-02-06 00:53:02 claus Exp $
+$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.7 1995-02-27 10:40:30 claus Exp $
 '!
 
 !PopUpList class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.6 1995-02-06 00:53:02 claus Exp $
+$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.7 1995-02-27 10:40:30 claus Exp $
 "
 !
 
@@ -319,7 +319,5 @@
     ].
     self sizeFixed:true.
     self label:label printString.
-    (model notNil and:[changeSymbol notNil]) ifTrue:[
-	model perform:changeSymbol with:value 
-    ].
+    self sendChangeMessageWith:value 
 ! !