--- a/Tools_BrowserList.st	Mon Sep 02 19:56:33 2013 +0200
+++ b/Tools_BrowserList.st	Tue Sep 03 16:14:28 2013 +0100
@@ -607,7 +607,7 @@
 delayedUpdate:something with:aParameter from:changedObject
 
     "/ if any of my subclasses want those, they should look for them.
-    changedObject == Smalltalk ifTrue:[
+    changedObject == environment ifTrue:[
 	(something == #Language or:[something == #LanguageTerritory]) ifTrue:[
 	    ^ self
 	].
@@ -868,7 +868,7 @@
 dropClassFiles:files
     files do:[:fn |
         (Dialog confirm:(resources string:'FileIn %1 ?' with:fn baseName allBold)) ifTrue:[
-            Smalltalk fileIn:fn logged:true.
+            environment fileIn:fn logged:true.
         ]
     ].