diff -r 1c9224a6ec00 -r d35a89d5c0ec WeakValueIdentityDictionary.st
--- a/WeakValueIdentityDictionary.st	Sun Apr 03 07:04:52 2016 +0200
+++ b/WeakValueIdentityDictionary.st	Fri Apr 08 07:02:36 2016 +0100
@@ -178,10 +178,6 @@
 
 !WeakValueIdentityDictionary methodsFor:'private'!
 
-slotIsEmpty:probe
-    ^ probe isNil or:[probe == 0 "collected"]
-!
-
 valueContainerOfSize:n
     "return a container for values of size n.
      use WeakArrays here."
@@ -204,14 +200,14 @@
     |val|
 
     (OperatingSystem blockInterrupts) ifTrue:[
-	"/ already blocked
-	^ super includes:anObject.
+        "/ already blocked
+        ^ super includes:anObject.
     ].
 
     [
-	val := super includes:anObject.
-    ] valueNowOrOnUnwindDo:[
-	OperatingSystem unblockInterrupts.
+        val := super includes:anObject.
+    ] ensure:[
+        OperatingSystem unblockInterrupts.
     ].
     ^ val
 
@@ -227,14 +223,14 @@
     |val|
 
     (OperatingSystem blockInterrupts) ifTrue:[
-	"/ already blocked
-	^ super includesKey:key.
+        "/ already blocked
+        ^ super includesKey:key.
     ].
 
     [
-	val := super includesKey:key.
-    ] valueNowOrOnUnwindDo:[
-	OperatingSystem unblockInterrupts.
+        val := super includesKey:key.
+    ] ensure:[
+        OperatingSystem unblockInterrupts.
     ].
     ^ val
 
@@ -253,6 +249,10 @@
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !