--- a/ClassBuilder.st	Sun Apr 18 02:56:52 2010 +0200
+++ b/ClassBuilder.st	Sun Apr 18 14:19:12 2010 +0200
@@ -1630,7 +1630,7 @@
      create a new class tree, based on the new version
     "
     Smalltalk flushCachedClasses.
-    Class flushSubclassInfoFor:self.
+    Class flushSubclassInfoFor:oldClass.
     allSubclasses do:[:aSubclass |
         |oldSuper|
 
@@ -2215,9 +2215,9 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.91 2010-04-18 00:56:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.92 2010-04-18 12:19:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.91 2010-04-18 00:56:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.92 2010-04-18 12:19:12 cg Exp $'
 ! !