--- a/FileBrowser.st	Fri Feb 06 13:01:38 2009 +0100
+++ b/FileBrowser.st	Mon Feb 09 16:28:32 2009 +0100
@@ -2208,8 +2208,8 @@
     list := SelectionInList new.
 
     descr := CharacterEncoder supportedExternalEncodings.
-    encodings := descr map:#first.
-    encodingNames := descr map:#second.
+    encodings := descr collect:[:d | d first].
+    encodingNames := descr collect:[:d | d second].
 
     list list:encodingNames.
     list selectionIndex:(encodings indexOf:fileEncoding ifAbsent:1).
@@ -7501,5 +7501,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.628 2008-12-19 08:14:08 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.629 2009-02-09 15:28:32 cg Exp $'
 ! !