--- a/ComboListView.st	Mon Mar 13 20:27:30 2006 +0100
+++ b/ComboListView.st	Tue Mar 14 14:03:15 2006 +0100
@@ -572,8 +572,9 @@
                     ^ self.
                 ]
             ].
-
-            newContents := list at:idx ifAbsent:nil.
+            list notNil ifTrue:[
+                newContents := list at:idx ifAbsent:nil.
+            ]
         ].
         self contents:newContents
     ].
@@ -650,5 +651,5 @@
 !ComboListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.39 2005-12-27 16:27:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.40 2006-03-14 13:03:15 cg Exp $'
 ! !