--- a/PluggableDictionary.st	Tue Feb 18 22:14:51 2014 +0100
+++ b/PluggableDictionary.st	Tue Feb 18 22:21:01 2014 +0100
@@ -122,7 +122,9 @@
 
     [true] whileTrue:[
         probe := keyArray basicAt:index.
-        (compareFunction value:probe value:key) ifTrue:[^ index].         "<<<< == is different from inherited"
+        probe notNil ifTrue:[
+            (compareFunction value:probe value:key) ifTrue:[^ index].         "<<<< == is different from inherited"
+        ].
         (self slotIsEmpty:probe) ifTrue:[^ aBlock value].
 
         index == length ifTrue:[
@@ -151,7 +153,9 @@
 
     [true] whileTrue:[
         probe := keyArray basicAt:index.
-        (compareFunction value:probe value:key) ifTrue:[^ index].
+        probe notNil ifTrue:[
+            (compareFunction value:probe value:key) ifTrue:[^ index].
+        ].
         (self slotIsEmpty:probe) ifTrue:[
             delIndex == 0 ifTrue:[^ index].
             keyArray basicAt:delIndex put:nil.
@@ -206,10 +210,10 @@
 !PluggableDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PluggableDictionary.st,v 1.1 2014-02-18 21:13:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PluggableDictionary.st,v 1.2 2014-02-18 21:21:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/PluggableDictionary.st,v 1.1 2014-02-18 21:13:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PluggableDictionary.st,v 1.2 2014-02-18 21:21:01 cg Exp $'
 ! !