--- a/AbstractFileBrowser.st	Wed Feb 18 13:03:43 2004 +0100
+++ b/AbstractFileBrowser.st	Wed Feb 18 13:04:45 2004 +0100
@@ -2971,7 +2971,7 @@
             |appl|
 
             appl := nb selectedApplication.
-            appl isTextEditor ifTrue:[
+            (appl notNil and:[appl isTextEditor]) ifTrue:[
                 appl fileEncoding:newEncoding
             ]
         ].
@@ -6618,5 +6618,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.204 2004-02-18 10:52:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.205 2004-02-18 12:04:45 cg Exp $'
 ! !