--- a/PopUpList.st	Fri Feb 28 13:43:48 1997 +0100
+++ b/PopUpList.st	Fri Feb 28 13:50:03 1997 +0100
@@ -893,7 +893,7 @@
         chg := changeMsg.
         chg == self class defaultChangeMessage ifTrue:[
             (model respondsTo:chg) ifFalse:[
-                chg := #value
+                chg := #value:
             ]
         ].
 
@@ -907,11 +907,11 @@
         menuAction value:value.
     ].
 
-    "Modified: 28.2.1997 / 13:43:06 / cg"
+    "Modified: 28.2.1997 / 13:49:55 / cg"
 ! !
 
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.41 1997-02-28 12:43:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.42 1997-02-28 12:50:03 cg Exp $'
 ! !