--- a/ClassBuilder.st	Mon Oct 03 10:28:31 2011 +0200
+++ b/ClassBuilder.st	Mon Oct 03 10:30:04 2011 +0200
@@ -933,8 +933,8 @@
 
             oldClass allClassVarNames do:[:nm | changeSet1 add:nm].
             newClass allClassVarNames do:[:nm | changeSet1 add:nm].
-            oldPoolDictionaries do:[:eachPoolName | |eachPool| eachPool := Smalltalk at:eachPoolName. eachPool allClassVarNames do:[:nm | changeSet1 add:nm]].
-            newPoolDictionaries do:[:eachPoolName | |eachPool| eachPool := Smalltalk at:eachPoolName. eachPool allClassVarNames do:[:nm | changeSet1 add:nm]].
+            oldPoolDictionaries do:[:eachPoolName | |eachPool| eachPool := Smalltalk at:eachPoolName asSymbol. eachPool allClassVarNames do:[:nm | changeSet1 add:nm]].
+            newPoolDictionaries do:[:eachPoolName | |eachPool| eachPool := Smalltalk at:eachPoolName asSymbol. eachPool allClassVarNames do:[:nm | changeSet1 add:nm]].
 
 "/            Smalltalk silentLoading ifFalse:[
 "/                Transcript showCR:'recompiling class methods accessing any classvar or super ...'.
@@ -963,8 +963,8 @@
                     changeSet1 add:nm
                 ]
             ].
-            oldPoolDictionaries do:[:eachPoolName | |eachPool| eachPool := Smalltalk at:eachPoolName. eachPool allClassVarNames do:[:nm | changeSet1 add:nm]].
-            newPoolDictionaries do:[:eachPoolName | |eachPool| eachPool := Smalltalk at:eachPoolName. eachPool allClassVarNames do:[:nm | changeSet1 add:nm]].
+            oldPoolDictionaries do:[:eachPoolName | |eachPool| eachPool := Smalltalk at:eachPoolName asSymbol. eachPool allClassVarNames do:[:nm | changeSet1 add:nm]].
+            newPoolDictionaries do:[:eachPoolName | |eachPool| eachPool := Smalltalk at:eachPoolName asSymbol. eachPool allClassVarNames do:[:nm | changeSet1 add:nm]].
 
             "/ must recompile some class-methods
 
@@ -1100,7 +1100,7 @@
         ].
     ].
 
-    "Modified: / 15-09-2011 / 14:40:39 / cg"
+    "Modified: / 03-10-2011 / 10:29:15 / cg"
 !
 
 flagsForVariable:variable pointers:pointers words:words
@@ -2336,11 +2336,11 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.110 2011-09-30 10:37:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.111 2011-10-03 08:30:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.110 2011-09-30 10:37:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.111 2011-10-03 08:30:04 cg Exp $'
 ! !
 
 ClassBuilder initialize!