--- a/Tools__VariableList.st	Wed Sep 04 23:50:52 2013 +0200
+++ b/Tools__VariableList.st	Thu Sep 05 12:46:11 2013 +0200
@@ -269,7 +269,7 @@
         self invalidateList.
         ^ self.
     ].
-    changedObject == Smalltalk ifTrue:[
+    changedObject == environment ifTrue:[
         (something == #projectOrganization) ifTrue:[^ self].
         (something == #currentChangeSet) ifTrue:[^ self].
         (something == #aboutToAutoloadClass) ifTrue:[^ self].
@@ -289,10 +289,10 @@
                         cls isObsolete ifTrue:[
                             cls isMeta ifTrue:[
                                 nm := cls theNonMetaclass name.
-                                selectedClasses at:idx put:(Smalltalk at:nm) class.
+                                selectedClasses at:idx put:(environment at:nm) class.
                             ] ifFalse:[
                                 nm := cls name.
-                                selectedClasses at:idx put:(Smalltalk at:nm).
+                                selectedClasses at:idx put:(environment at:nm).
                             ].
                             anyChange := true.
                         ] ifFalse:[
@@ -328,7 +328,7 @@
                 selectedClasses keysAndValuesDo:[:idx :cls | |nm|
                     cls isObsolete ifTrue:[
                         nm := cls name.
-                        selectedClasses at:idx put:(Smalltalk at:nm).
+                        selectedClasses at:idx put:(environment at:nm).
                         anyChange := true.
                     ]
                 ].
@@ -357,12 +357,12 @@
 !
 
 makeDependent
-    Smalltalk addDependent:self
+    environment addDependent:self
 
 !
 
 makeIndependent
-    Smalltalk removeDependent:self
+    environment removeDependent:self
 
 !
 
@@ -376,7 +376,7 @@
 update:something with:aParameter from:changedObject
     "/ ^ self delayedUpdate:something with:aParameter from:changedObject.
 
-    changedObject == Smalltalk ifTrue:[
+    changedObject == environment ifTrue:[
         something == #methodDictionary ifTrue:[
             ^ self 
         ].
@@ -864,6 +864,6 @@
 !VariableList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.24 2013-09-02 12:14:09 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.25 2013-09-05 10:46:11 vrany Exp $'
 ! !