--- a/Metaclass.st	Thu Apr 22 18:32:46 1999 +0200
+++ b/Metaclass.st	Thu Apr 22 18:33:29 1999 +0200
@@ -1105,13 +1105,14 @@
                       "/ access was: global; now: classVar.
                       "/ but only, if such a global existed in the first
                       "/ place. (otherwise, it is a brand-new name)
-                      (Smalltalk includesKey:nm asSymbol) ifTrue:[
+"/ cg: no, this is not a good check.
+"/                      (Smalltalk includesKey:nm asSymbol) ifTrue:[
                           changeSet1 add:nm
-                      ]  
+"/                      ]  
                   ]
               ].
 
-              changeSet1 isEmpty ifFalse:[
+              changeSet1 notEmpty ifTrue:[
 
                   "/ recompile all methods accessing set of changed classvars
                   "/ here and also in all subclasses ...
@@ -1125,8 +1126,8 @@
 "/                          Transcript endEntry.
 "/                      ].
                       oldClass withAllSubclasses do:[:aClass |
-                          aClass class recompileMethodsAccessingAny:changeSet1.
-                          aClass recompileMethodsAccessingAny:changeSet1.
+                          aClass class recompileMethodsAccessingAnyClassvarOrGlobal:changeSet1.
+                          aClass recompileMethodsAccessingAnyClassvarOrGlobal:changeSet1.
                       ].
                   ].
               ].
@@ -2023,6 +2024,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.143 1999-04-15 08:13:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.144 1999-04-22 16:33:29 cg Exp $'
 ! !
 Metaclass initialize!