--- a/CacheDictionary.st	Thu May 17 23:12:49 2018 +0200
+++ b/CacheDictionary.st	Thu May 17 23:30:55 2018 +0200
@@ -196,11 +196,23 @@
     ^ self
 
     "Modified: 30.1.1997 / 15:17:12 / cg"
+!
+
+possiblyShrinkToZero
+    "here, we keep the old containers"
+    
+    keyArray atAllPut:nil.
+    valueArray atAllPut:nil.
+    tally := 0.
 ! !
 
 !CacheDictionary class methodsFor:'documentation'!
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !