--- a/AbstractSettingsApplication.st	Tue Nov 07 13:59:24 2006 +0100
+++ b/AbstractSettingsApplication.st	Tue Nov 07 13:59:38 2006 +0100
@@ -11927,7 +11927,7 @@
 
     lastSelection := self selectedStyle value.
     listOfStyles := styleDirectoryContents select:[:aFileName | aFileName asFilename hasSuffix:'style'].
-    listOfStyles := listOfStyles collect:[:aFileName | aFileName asFilename withoutSuffix name].
+    listOfStyles := listOfStyles collect:[:aFileName | aFileName asFilename nameWithoutSuffix].
     Filename isCaseSensitive ifFalse:[
         listOfStyles := listOfStyles collect:[:aStyleName | aStyleName asLowercase].
     ].
@@ -11939,6 +11939,8 @@
     listOfStyles sort.
     self styleList contents:listOfStyles.
     self selectedStyle value:lastSelection.
+
+    "Modified: / 07-11-2006 / 13:58:09 / cg"
 ! !
 
 !AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
@@ -13398,5 +13400,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.261 2006-10-23 08:42:02 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.262 2006-11-07 12:59:38 cg Exp $'
+! !