--- a/CachingRegistry.st	Thu Sep 15 17:57:28 2016 +0200
+++ b/CachingRegistry.st	Mon Sep 19 09:45:36 2016 +0200
@@ -65,6 +65,12 @@
 "
 ! !
 
+!CachingRegistry class methodsFor:'instance creation'!
+
+new:cacheSize
+    ^ (self new:cacheSize) cacheSize:cacheSize
+! !
+
 !CachingRegistry methodsFor:'enumerating'!
 
 detect:aBlock ifNone:exceptionValue