--- a/ClassBuilder.st	Sat Feb 11 22:04:14 2012 +0000
+++ b/ClassBuilder.st	Mon Feb 13 19:19:41 2012 +0000
@@ -1544,8 +1544,9 @@
     pool isNil ifTrue:[
         ns ~= Smalltalk ifTrue:[
             pool := Smalltalk at:poolName asSymbol.
-            pool isNil ifTrue:[^ #() ].
-        ]
+        ].
+        "/ pool is not yet there
+        pool isNil ifTrue:[^ #() ].
     ].
     ^ pool allClassVarNames
 
@@ -2361,15 +2362,15 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.113 2011/12/20 14:33:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.114 2012/01/31 13:14:34 cg Exp $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.113 2011/12/20 14:33:18 cg Exp '
+    ^ 'Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.114 2012/01/31 13:14:34 cg Exp '
 !
 
 version_SVN
-    ^ '$Id: ClassBuilder.st 10761 2012-01-19 11:46:00Z vranyj1 $'
+    ^ '$Id: ClassBuilder.st 10777 2012-02-13 19:19:41Z vranyj1 $'
 ! !
 
 ClassBuilder initialize!
@@ -2379,3 +2380,4 @@
 
 
 
+