--- a/AbstractFileBrowser.st	Tue May 06 20:26:11 2003 +0200
+++ b/AbstractFileBrowser.st	Wed May 07 11:38:55 2003 +0200
@@ -5683,9 +5683,9 @@
 
     ^ self aspectFor:#sortBlockHolder ifAbsent:[
         self sortCaseless value ifTrue:[
-            nameSortBlock := [ :a :b | a asString asLowercase < b asString asLowercase.].
+            nameSortBlock := [ :a :b | a fileName name asLowercase < b fileName name asLowercase.].
         ] ifFalse:[
-            nameSortBlock := [ :a :b | a asString < b asString.].
+            nameSortBlock := [ :a :b | a fileName name < b fileName name.].
         ].
         (self makeDirectorySortBlockFor:nameSortBlock) asValue.
     ].
@@ -5761,7 +5761,9 @@
         entry1 := (a perform:aSymbol).
         entry2 := (b perform:aSymbol).
         ((entry1 isNil) or:[entry2 isNil]) ifTrue:[
-            ((entry1 isNil) and:[entry2 isNil]) ifTrue:[true] ifFalse:[
+            ((entry1 isNil) and:[entry2 isNil]) ifTrue:[
+                true
+            ] ifFalse:[
                 ((entry1 notNil) and:[entry2 isNil]) ifTrue:[
                     sortReverse
                 ] ifFalse:[
@@ -6162,5 +6164,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.138 2003-04-29 07:25:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.139 2003-05-07 09:38:55 cg Exp $'
 ! !