--- a/AbstractSettingsApplication.st	Tue Feb 24 10:40:02 2015 +0100
+++ b/AbstractSettingsApplication.st	Tue Feb 24 10:41:39 2015 +0100
@@ -5853,7 +5853,7 @@
     mappings := screenMap species new declareAllFrom: screenMap.
 
     self rawKeyList contents: (mappings keys collect:[:key | key asString] as:Array) sort.
-    l := (mappings values asSet collect:[:key | key asString] as:Array as:OrderedCollection) sort.
+    l := (mappings values asSet collect:[:key | key asString] as:OrderedCollection) sort.
     l addFirst:(resources string:'* unassigned *').
     self functionKeyList contents:l.
 
@@ -19013,10 +19013,10 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.588 2015-02-24 09:40:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.589 2015-02-24 09:41:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.588 2015-02-24 09:40:02 cg Exp $'
-! !
-
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.589 2015-02-24 09:41:39 cg Exp $'
+! !
+