--- a/Class.st	Sun Aug 16 06:44:26 2015 +0200
+++ b/Class.st	Mon Aug 17 16:09:05 2015 +0100
@@ -699,6 +699,18 @@
 
 !Class methodsFor:'Compatibility-Squeak'!
 
+classVarNamed: aSymbol
+    "Returns the value of class variable named `aSymbol`.
+
+     Warning: This method is here for Squeak/Pharo compatibility.
+     Do not use it in Smalltalk/X code"
+
+    ^ self classVarAt: aSymbol
+
+    "Created: / 17-08-2015 / 13:07:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+
+!
+
 classVarNamed: aSymbol put: anObject
     "Set the value of class variable named `aSymbol` to `anObject`.