--- a/WeakValueIdentityDictionary.st	Thu Nov 22 15:55:08 2001 +0100
+++ b/WeakValueIdentityDictionary.st	Fri Nov 23 11:13:43 2001 +0100
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libbasic' }"
+
 IdentityDictionary subclass:#WeakValueIdentityDictionary
 	instanceVariableNames:''
 	classVariableNames:''
@@ -175,6 +177,10 @@
 
 !WeakValueIdentityDictionary methodsFor:'private'!
 
+slotIsEmpty:probe
+    ^ probe isNil or:[probe == 0 "collected"]
+!
+
 valueContainerOfSize:n
     "return a container for values of size n.
      use WeakArrays here."
@@ -239,5 +245,5 @@
 !WeakValueIdentityDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WeakValueIdentityDictionary.st,v 1.2 1999-07-07 18:40:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WeakValueIdentityDictionary.st,v 1.3 2001-11-23 10:11:09 martin Exp $'
 ! !