--- a/Class.st	Thu Mar 04 19:58:35 2004 +0100
+++ b/Class.st	Thu Mar 04 20:03:03 2004 +0100
@@ -3421,23 +3421,10 @@
      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 Behavior>>superclass: (or flush the caches, at least).
-
-     Redefined here to take care of subclass caching"
-
-    |info|
-
-    SubclassInfo notNil ifTrue:[
-        "/ flush/update the subclass information
-
-        "/ if my class is already contained
-        (info := SubclassInfo at:aClass ifAbsent:nil) notNil ifTrue:[
-            info add:self
-        ] ifFalse:[
-            SubclassInfo := nil.  "/ flush it
-        ]
-    ].
-    super setSuperclass:aClass
+     Therefore: do NOT use it; use #superclass: (or flush the caches, at least)."
+
+    SubclassInfo := nil.  "/ flush it
+    superclass := aClass
 ! !
 
 !Class methodsFor:'private-changes management'!
@@ -4871,5 +4858,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.455 2004-03-03 20:58:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.456 2004-03-04 19:03:03 cg Exp $'
 ! !