--- a/FileSorter.st	Tue Sep 21 08:58:38 2010 +0200
+++ b/FileSorter.st	Thu Oct 14 19:11:27 2010 +0200
@@ -91,7 +91,10 @@
 !
 
 sortCaseless
-    ^ sortCaseless ? false
+    sortCaseless isNil ifTrue:[^ Filename isCaseSensitive not ].
+    ^ sortCaseless
+
+    "Modified: / 14-10-2010 / 19:11:18 / cg"
 !
 
 sortCaseless:something
@@ -177,5 +180,9 @@
 !FileSorter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FileSorter.st,v 1.7 2009-06-30 13:27:51 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FileSorter.st,v 1.8 2010-10-14 17:11:27 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic2/FileSorter.st,v 1.8 2010-10-14 17:11:27 cg Exp $'
 ! !