--- a/CachingRegistry.st	Fri Sep 23 09:11:04 2016 +0200
+++ b/CachingRegistry.st	Fri Sep 23 17:16:38 2016 +0200
@@ -86,7 +86,7 @@
         (aBlock value:obj) ifTrue:[
             "if not at the end, put it to the end.
              but avoid to much remove/add actions"
-            cnt > (cacheSize // 2) ifTrue:[
+            cnt > (cacheSize // 4) ifTrue:[
                 keptReferences removeIdentical:obj ifAbsent:[].
                 keptReferences addLast:obj.
             ].