--- a/Class.st	Wed Apr 17 21:37:45 2013 +0200
+++ b/Class.st	Wed Apr 17 21:49:58 2013 +0200
@@ -1809,7 +1809,6 @@
     "Created: / 18-07-2011 / 09:14:38 / cg"
 ! !
 
-
 !Class methodsFor:'adding & removing'!
 
 removeFromSystem
@@ -3555,19 +3554,6 @@
     "Created: / 28-04-2010 / 08:48:49 / cg"
 !
 
-setSuperclass:aClass
-    "set the superclass of the receiver.
-     this method is for special uses only - there will be no recompilation
-     and no change record written here. Also, if the receiver class has
-     already been in use, future operation of the system is not guaranteed to
-     be correct, since no caches are flushed.
-     Therefore: do NOT use it; use #superclass: (or flush the caches, at least)."
-
-    superclass := aClass
-
-    "Modified: / 28-04-2010 / 08:49:07 / cg"
-!
-
 updateAllCachedSubclasses
     |subclassesPerClass seqNr makeNewSet|
 
@@ -5530,11 +5516,11 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.622 2013-04-16 15:57:21 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.623 2013-04-17 19:49:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.622 2013-04-16 15:57:21 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.623 2013-04-17 19:49:58 cg Exp $'
 !
 
 version_SVN