--- a/Smalltalk.st	Thu Apr 08 10:43:31 2010 +0200
+++ b/Smalltalk.st	Thu Apr 08 11:31:03 2010 +0200
@@ -566,7 +566,7 @@
 
     |idx|
 
-    NumberOfClassesHint := 4500.
+    NumberOfClassesHint := 10000.
 
     Initializing := true.
 
@@ -1713,7 +1713,7 @@
 
     |already|
 
-    already := IdentitySet new:NumberOfClassesHint*3.
+    already := IdentitySet new:NumberOfClassesHint*2.
     self allClassesDo:[:eachClass | 
         |cls|
 
@@ -7398,9 +7398,9 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.931 2010-03-26 12:05:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.932 2010-04-08 09:31:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.931 2010-03-26 12:05:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.932 2010-04-08 09:31:03 cg Exp $'
 ! !