--- a/ClassDescription.st	Wed Apr 17 22:16:50 2013 +0200
+++ b/ClassDescription.st	Wed Apr 17 22:23:53 2013 +0200
@@ -654,6 +654,7 @@
     "Modified: 23.4.1996 / 15:56:54 / cg"
 ! !
 
+
 !ClassDescription methodsFor:'Compatibility-Dolphin'!
 
 categoriesFor:aMethodSelector
@@ -1580,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.
@@ -4239,11 +4227,11 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.234 2013-04-02 12:03:03 stefan 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.234 2013-04-02 12:03:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.235 2013-04-17 20:23:53 cg Exp $'
 ! !