--- a/WeakValueDictionary.st	Tue Dec 30 13:35:31 2014 +0100
+++ b/WeakValueDictionary.st	Tue Dec 30 13:35:34 2014 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Dictionary subclass:#WeakValueDictionary
 	instanceVariableNames:''
 	classVariableNames:''
@@ -194,13 +196,13 @@
     "Modified: / 13.12.2001 / 14:18:56 / martin"
 !
 
-emptyCheck
+possiblyShrink
     "check if the receiver has become too empty (after a remove)
      and shrink if it makes sense.
-     Definition of 'too empty' is 'filled less than 12.5% (i.e. 1/8th)'"
+     Definition of 'too empty' is: 'filled less than 12.5% (i.e. 1/8th)'"
 
     self clearDeadSlots.
-    super emptyCheck
+    super possiblyShrink
 !
 
 slotIsEmpty:probe
@@ -263,5 +265,6 @@
 !WeakValueDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WeakValueDictionary.st,v 1.19 2012-08-13 11:13:51 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WeakValueDictionary.st,v 1.20 2014-12-30 12:35:34 cg Exp $'
 ! !
+