--- a/Class.st	Tue Oct 26 23:45:34 2010 +0200
+++ b/Class.st	Wed Oct 27 16:35:25 2010 +0200
@@ -795,7 +795,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."
@@ -806,7 +806,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
@@ -5070,9 +5072,9 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.574 2010-10-13 10:39:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.575 2010-10-27 14:35:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.574 2010-10-13 10:39:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.575 2010-10-27 14:35:25 cg Exp $'
 ! !