--- a/AbstractSettingsApplication.st	Wed Aug 19 20:26:16 2009 +0200
+++ b/AbstractSettingsApplication.st	Sun Aug 23 11:29:09 2009 +0200
@@ -4748,8 +4748,8 @@
     
     mappings := Screen current keyboardMap.
 
-    rawKeyList := (mappings keys asArray collect:[:key | key asString]) sort.
-    functionKeyList := (mappings values asSet asArray collect:[:key | key asString]) sort.
+    rawKeyList := (mappings keys collect:[:key | key asString] as:Array) sort.
+    functionKeyList := (mappings values asSet collect:[:key | key asString] as:Array) sort.
 
     self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
 ! !
@@ -15167,5 +15167,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.321 2009-08-12 18:51:04 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.322 2009-08-23 09:29:09 cg Exp $'
+! !