--- a/Tools_ProjectList.st	Mon Sep 02 19:56:33 2013 +0200
+++ b/Tools_ProjectList.st	Tue Sep 03 16:14:28 2013 +0100
@@ -232,7 +232,7 @@
     self inSlaveModeOrInvisible 
     "/ (self slaveMode value == true) 
     ifTrue:[
-        (changedObject == Smalltalk
+        (changedObject == environment
         or:[ something == #projectOrganization ]) ifTrue:[
             listValid ifFalse:[ ^ self].
             listValid := false
@@ -284,7 +284,7 @@
         ^  self
     ].
 
-    changedObject == Smalltalk ifTrue:[
+    changedObject == environment ifTrue:[
         something == #projectOrganization ifTrue:[
             self invalidateList.
             slaveMode value == true ifFalse:[
@@ -375,7 +375,7 @@
         ^ self
     ].
 
-    changedObject == Smalltalk ifTrue:[
+    changedObject == environment ifTrue:[
         something == #methodDictionary ifTrue:[
             ^ self 
         ].
@@ -547,7 +547,7 @@
     (selectedPackages includes:(self class nameListEntryForALL)) ifTrue:[
         hideUnloadedClasses ifTrue:[
             ^ Iterator on:[:whatToDo |
-                               Smalltalk allClassesDo:[:cls |
+                               environment allClassesDo:[:cls |
                                    cls isLoaded ifTrue:[
                                        cls isRealNameSpace ifFalse:[
                                            whatToDo value:cls
@@ -557,7 +557,7 @@
                           ]
         ].
         ^ Iterator on:[:whatToDo |
-                           Smalltalk allClassesDo:[:cls |
+                           environment allClassesDo:[:cls |
                                cls isRealNameSpace ifFalse:[
                                    whatToDo value:cls
                                ]
@@ -574,7 +574,7 @@
 
                            showChangedClasses ifTrue:[ changedClasses := ChangeSet current changedClasses ].
 
-                           Smalltalk allClassesDo:[:cls |
+                           environment allClassesDo:[:cls |
                                |doInclude|
 
                                (hideUnloadedClasses not or:[cls isLoaded])
@@ -607,7 +607,7 @@
 
                        showChangedClasses ifTrue:[ changedClasses := ChangeSet current changedClasses ].
 
-                       Smalltalk allClassesDo:[:cls |
+                       environment allClassesDo:[:cls |
                            |doInclude|
 
                            (hideUnloadedClasses not or:[cls isLoaded])
@@ -707,7 +707,7 @@
                 ].
             ].
 
-        Smalltalk allClassesDo:[:eachClass |
+        environment allClassesDo:[:eachClass |
             |cls pkg p classPackage|
 
             eachClass isRealNameSpace ifFalse:[
@@ -807,12 +807,12 @@
 !
 
 makeDependent
-    Smalltalk addDependent:self.
+    environment addDependent:self.
     ChangeSet addDependent:self.
 !
 
 makeIndependent
-    Smalltalk removeDependent:self.
+    environment removeDependent:self.
     ChangeSet removeDependent:self.
 !
 
@@ -823,8 +823,8 @@
 "/    workerQueue 
 "/        nextPut:[
 "/            | repo newEntry branch mark|
-"/            "/ use Smalltalk-at to trick the dependency/prerequisite generator
-"/            repo := (Smalltalk at:#SVN::RepositoryManager) current 
+"/            "/ use environment-at to trick the dependency/prerequisite generator
+"/            repo := (environment at:#SVN::RepositoryManager) current 
 "/                        repositoryForPackage: package onlyFromCache: false.
 "/            repo ifNotNil:[
 "/                mark := ' [SVN]'.
@@ -990,7 +990,7 @@
     ].
     AdditionalEmptyProjects add:aProject.
 
-    Smalltalk changed:#projectOrganization   "/ not really ... to force update
+    environment changed:#projectOrganization   "/ not really ... to force update
 
     "Created: / 17.2.2000 / 23:44:27 / cg"
 !
@@ -1003,7 +1003,7 @@
 	    AdditionalEmptyProjects remove:eachProject ifAbsent:nil.
 	].
     ].
-    Smalltalk changed:#projectOrganization   "/ not really ... to force update
+    environment changed:#projectOrganization   "/ not really ... to force update
 
     "Created: / 17.2.2000 / 23:45:24 / cg"
 ! !