changeset 20557 | 1d6ece180d90 |
parent 20556 | d6f5739ac631 |
child 20565 | 6c2a63cd3931 |
--- a/Smalltalk.st Thu Oct 06 19:14:26 2016 +0200 +++ b/Smalltalk.st Thu Oct 06 19:15:36 2016 +0200 @@ -1988,8 +1988,8 @@ aBlock value:cls. already add:cls. ]. - already size > NumberOfClassesHint ifTrue:[ - NumberOfClassesHint := already size + already size > (NumberOfClassesHint * 2) ifTrue:[ + NumberOfClassesHint := (already size // 2) + 1 ]. ]. !