--- a/Class.st	Fri Aug 30 10:43:53 2019 +0200
+++ b/Class.st	Fri Aug 30 10:55:09 2019 +0200
@@ -874,7 +874,7 @@
     ^ self privateClassesAt:aClassNameStringOrSymbol
 !
 
-classVarAt:aSymbol
+classVarAt:aSymbolOrNameString
     "return the value of a class variable.
      Currently, this returns nil if there is no such classvar -
      this may change."
@@ -885,7 +885,12 @@
      the Smalltalk dictionary with a funny name, since there are
      no classPools yet.
     "
-    ^ Smalltalk at:(self globalKeyForClassVar:aSymbol)
+    ^ Smalltalk at:(self globalKeyForClassVar:aSymbolOrNameString)
+
+    "
+     Object classVarAt:#UserInterruptSignal
+     Object classVarAt:'UserInterruptSignal'
+    "
 !
 
 classVarAt:aSymbol ifAbsent:exceptionBlock