--- a/Class.st	Tue Apr 02 14:03:03 2013 +0200
+++ b/Class.st	Tue Apr 02 14:03:42 2013 +0200
@@ -643,6 +643,7 @@
     "Created: / 18.6.1998 / 22:08:45 / cg"
 ! !
 
+
 !Class methodsFor:'accessing'!
 
 addClassVarName:aString
@@ -820,11 +821,11 @@
      in the returned collection - use allClassVarNames, to get all known names."
 
     classvars isNil ifTrue:[
-	^ #()
+        ^ #()
     ].
     classvars isString ifTrue:[
-	classvars := classvars asCollectionOfWords collect:[:varName| varName asSymbol] as:Array.
-	^ classvars
+        classvars := (classvars asCollectionOfWords collect:[:varName| varName asSymbol]) asArray.
+        ^ classvars
     ].
 
     ^ classvars
@@ -1562,11 +1563,11 @@
 
     pools := self getAttribute:#sharedPools.
     pools isNil ifTrue:[
-	^ #().
+        ^ #().
     ].
     pools isString ifTrue:[
-	pools := pools asCollectionOfWords collect:[:varName| varName asSymbol] as:Array.
-	self setAttribute:#sharedPools to:pools.
+        pools := (pools asCollectionOfWords collect:[:varName| varName asSymbol]) asArray.
+        self setAttribute:#sharedPools to:pools.
     ].
     ^ pools
 
@@ -1799,6 +1800,7 @@
     "Created: / 18-07-2011 / 09:14:38 / cg"
 ! !
 
+
 !Class methodsFor:'adding & removing'!
 
 removeFromSystem
@@ -5519,11 +5521,11 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.618 2013-03-21 10:51:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.619 2013-04-02 12:03:42 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.618 2013-03-21 10:51:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.619 2013-04-02 12:03:42 stefan Exp $'
 !
 
 version_SVN