--- a/ClassDefinitionChange.st	Sun Oct 11 11:37:46 2009 +0200
+++ b/ClassDefinitionChange.st	Mon Oct 12 10:00:56 2009 +0200
@@ -176,6 +176,7 @@
 
 superClassName:something
     superClassName := something.
+    self invalidateSource.
 !
 
 superClassNameWithoutMyNamespace
@@ -407,6 +408,13 @@
     "Modified: / 13-11-2006 / 17:18:50 / cg"
 !
 
+invalidateSource
+    "internal - flush the sourceString if it got invalidated due to a
+     className, superclassName, etc... change"
+
+    source := nil.
+!
+
 setupFromSource
     "extract privacy, category and selector from the source"
 
@@ -439,9 +447,9 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.51 2009-10-05 09:14:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.52 2009-10-12 08:00:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.51 2009-10-05 09:14:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.52 2009-10-12 08:00:56 cg Exp $'
 ! !