--- a/ComboView.st	Thu Mar 28 15:35:50 2019 +0100
+++ b/ComboView.st	Tue Apr 02 18:02:15 2019 +0200
@@ -390,14 +390,15 @@
      to be send from the outside if no model/listHolder is used."
 
     list ~~ aList ifTrue:[
-        self assert:(aList isNil or:[aList isSequenceable]).
+        self assert:(aList isNil or:[aList isOrdered "isSequenceable"]).
         currentIndex := 1.
         list := aList.
     ].
     "maybe some values have been added to / removed from list"
     self enableStateChanged.
 
-    "Modified: / 30.3.1999 / 14:17:38 / stefan"
+    "Modified: / 30-03-1999 / 14:17:38 / stefan"
+    "Modified: / 02-04-2019 / 18:01:15 / Claus Gittinger"
 ! !
 
 !ComboView methodsFor:'accessing-look'!
@@ -811,20 +812,22 @@
 deltaSelect:delta
     "change selection by delta. Wrap at start/end"
 
-    |newIndex|
+    |listSize newIndex|
 
-    list size == 0 ifTrue:[^ self].
+    (listSize := list size) == 0 ifTrue:[^ self].
 
     newIndex := currentIndex + delta.
-    newIndex > list size ifTrue:[
+    newIndex > listSize ifTrue:[
         newIndex := 1.
     ] ifFalse:[
         newIndex <= 0 ifTrue:[
-            newIndex := list size.
+            newIndex := listSize.
         ].
     ].
 
     self select:newIndex.
+
+    "Modified: / 02-04-2019 / 17:59:42 / Claus Gittinger"
 !
 
 pullMenu