--- a/ComboView.st	Tue Apr 08 15:39:36 2003 +0200
+++ b/ComboView.st	Tue Apr 08 16:13:25 2003 +0200
@@ -312,7 +312,7 @@
      to be send from the outside if no model/listHolder is used."
 
     list := aList.
-    list isSequenceable ifFalse:[
+    (list isNil or:[list isSequenceable]) ifFalse:[
         self error:'Need an ordered collection' mayProceed:true.
     ].
     self enableStateChanged.
@@ -693,5 +693,5 @@
 !ComboView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.73 2003-04-08 12:29:42 martin Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.74 2003-04-08 14:13:25 mb Exp $'
 ! !