--- a/ClassDescription.st	Tue Apr 16 14:27:04 2013 +0200
+++ b/ClassDescription.st	Thu Apr 18 20:41:50 2013 +0200
@@ -654,6 +654,7 @@
     "Modified: 23.4.1996 / 15:56:54 / cg"
 ! !
 
+
 !ClassDescription methodsFor:'Compatibility-Dolphin'!
 
 categoriesFor:aMethodSelector
@@ -820,6 +821,7 @@
     "Created: / 28.3.1998 / 21:21:52 / cg"
 ! !
 
+
 !ClassDescription methodsFor:'Compatibility-V''Age'!
 
 categoriesFor:aSelector are:listOfCategories
@@ -1019,7 +1021,7 @@
         ^ #()
     ].
     instvars isString ifTrue:[
-        instvars := instvars asCollectionOfWords collect:[:varName| varName asSymbol] as:Array.
+        instvars := (instvars asCollectionOfWords collect:[:varName| varName asSymbol]) asArray.
     ].
 
     ^ instvars
@@ -1579,19 +1581,6 @@
 
 !ClassDescription methodsFor:'compiling'!
 
-compile:code
-    "compile code, aString for this class;
-     if successful update the method dictionary.
-     Returns the new method or nil (on failure)."
-
-    ^ self compilerClass
-	compile:code
-	forClass:self
-
-    "Modified: 13.12.1995 / 10:56:00 / cg"
-    "Created: 1.4.1997 / 23:43:51 / stefan"
-!
-
 compile:code classified:category
     "compile code, aString for this class;
      if successful update the method dictionary.
@@ -4238,11 +4227,11 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.233 2013-01-25 10:37:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.235 2013-04-17 20:23:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.233 2013-01-25 10:37:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.235 2013-04-17 20:23:53 cg Exp $'
 ! !