ClassBuilder.st
changeset 17259 fc323a98d6c4
parent 17258 ce2eaec7a6f2
child 17339 323c1da296f0
--- a/ClassBuilder.st	Mon Dec 29 16:34:40 2014 +0100
+++ b/ClassBuilder.st	Mon Dec 29 16:46:03 2014 +0100
@@ -902,7 +902,8 @@
 
     changeSet1 := Set new.
 
-    classVarChange := false.
+    classVarChange := classVarChange ? false.
+    instVarChange := instVarChange ? false.
 
     superClassChange ifTrue:[
         (oldSuperClass notNil
@@ -2389,11 +2390,11 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.131 2014-12-29 15:34:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.132 2014-12-29 15:46:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.131 2014-12-29 15:34:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.132 2014-12-29 15:46:03 cg Exp $'
 ! !