--- a/Class.st	Tue Nov 09 13:54:57 2010 +0000
+++ b/Class.st	Tue Nov 09 16:24:28 2010 +0000
@@ -818,7 +818,7 @@
     ^ Smalltalk at:(self globalKeyForClassVar:aSymbol) ifAbsent:exceptionBlock
 !
 
-classVarAt:aSymbol put:something
+classVarAt:aSymbolOrString put:something
     "store something in a classvariable.
      Currently this creates a global with a funny name if no such
      classVar exists - this may change."
@@ -829,7 +829,9 @@
      the Smalltalk dictionary with a funny name, since there are
      no classPools yet.
     "
-    Smalltalk at:(self globalKeyForClassVar:aSymbol) put:something.
+    Smalltalk at:(self globalKeyForClassVar:aSymbolOrString) put:something.
+
+    "Modified: / 27-10-2010 / 16:35:17 / cg"
 !
 
 classVarNames
@@ -2075,7 +2077,8 @@
 
     "/ use cached information (avoid class hierarchy search), if possible
     subclasses isNil ifTrue:[
-        self updateAllCachedSubclasses
+        self updateAllCachedSubclasses.
+        subclasses isNil ifTrue:[subclasses := #()].
     ].
     subclasses do:aBlock
 
@@ -2083,7 +2086,7 @@
      Collection subclassesDo:[:c | Transcript showCR:(c name)]
     "
 
-    "Modified: / 28-04-2010 / 08:51:46 / cg"
+    "Modified: / 13-10-2010 / 12:39:13 / cg"
 !
 
 withAllPrivateClassesDo:aBlock
@@ -5092,13 +5095,14 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Class.st 10589 2010-11-09 13:54:57Z vranyj1 $'
+    ^ '$Id: Class.st 10590 2010-11-09 16:24:28Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/Class.st,v 1.573 2010/04/30 09:56:51 stefan Exp '
+    ^ 'Header: /cvs/stx/stx/libbasic/Class.st,v 1.575 2010-10-27 14:35:25 cg Exp '
 !
 
 version_SVN
-    ^ '$Id: Class.st 10589 2010-11-09 13:54:57Z vranyj1 $'
+    ^ '$Id: Class.st 10590 2010-11-09 16:24:28Z vranyj1 $'
 ! !
+