--- a/FileSorter.st	Thu Apr 30 23:20:57 2009 +0200
+++ b/FileSorter.st	Sun May 03 17:33:39 2009 +0200
@@ -135,8 +135,10 @@
                 ]
             ]
         ] ifFalse:[
-            entry1 := entry1 asString.
-            entry2 := entry2 asString.
+            (entry1 isNumber and:[entry2 isNumber]) ifFalse:[
+                entry1 := entry1 asString.
+                entry2 := entry2 asString.
+            ].
             ((selector = #baseName) and:[sortCaseless]) ifTrue:[
                 entry1 := entry1 asLowercase.
                 entry2 := entry2 asLowercase.
@@ -168,5 +170,5 @@
 !FileSorter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FileSorter.st,v 1.5 2008-02-06 17:59:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FileSorter.st,v 1.6 2009-05-03 15:33:39 cg Exp $'
 ! !