diff --git a/src/Spec2-Core/SpCollectionListModel.class.st b/src/Spec2-Core/SpCollectionListModel.class.st
index 395880b2..de1b35eb 100644
--- a/src/Spec2-Core/SpCollectionListModel.class.st
+++ b/src/Spec2-Core/SpCollectionListModel.class.st
@@ -81,7 +81,7 @@ SpCollectionListModel >> hasElementAt: index [
 { #category : 'accessing' }
 SpCollectionListModel >> indexOf: anItem ifAbsent: aBlock [
 
-	^ collection identityIndexOf: anItem ifAbsent: aBlock
+	^ collection indexOf: anItem ifAbsent: aBlock
 ]
 
 { #category : 'initialization' }
diff --git a/src/Spec2-Core/SpDropListItem.class.st b/src/Spec2-Core/SpDropListItem.class.st
index 9302ee5b..6b680701 100644
--- a/src/Spec2-Core/SpDropListItem.class.st
+++ b/src/Spec2-Core/SpDropListItem.class.st
@@ -40,7 +40,7 @@ SpDropListItem >> = anObject [
 
 	self == anObject ifTrue: [ ^ true ].
 	self class = anObject class ifFalse: [ ^ false ].
-	^ self label = anObject label and: [ action = anObject action ]
+	^ self model = anObject model
 ]
 
 { #category : 'protocol' }