--- a/PopUpList.st	Thu Feb 27 12:48:53 1997 +0100
+++ b/PopUpList.st	Thu Feb 27 14:06:01 1997 +0100
@@ -743,11 +743,13 @@
         self list:listHolder value
     ] ifFalse:[
         (listMsg notNil and:[model notNil]) ifTrue:[
-            self list:(model perform:listMsg).
+            (model respondsTo:listMsg) ifTrue:[
+                self list:(model perform:listMsg).
+            ]
         ].
     ]
 
-    "Modified: 26.2.1997 / 19:07:36 / cg"
+    "Modified: 27.2.1997 / 14:05:52 / cg"
 !
 
 getSelectionFromModel
@@ -849,5 +851,5 @@
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.36 1997-02-27 11:48:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.37 1997-02-27 13:06:01 cg Exp $'
 ! !