--- a/FileSorter.st	Sat Nov 24 13:55:00 2012 +0100
+++ b/FileSorter.st	Sun Nov 25 09:53:04 2012 +0100
@@ -173,16 +173,16 @@
         sortBlock := instanceSortBlock.
     ].
 
-    aList sort:sortBlock.
+    aList notEmptyOrNil ifTrue:[aList sort:sortBlock].
     ^ aList
 ! !
 
 !FileSorter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FileSorter.st,v 1.8 2010-10-14 17:11:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FileSorter.st,v 1.9 2012-11-25 08:53:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/FileSorter.st,v 1.8 2010-10-14 17:11:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FileSorter.st,v 1.9 2012-11-25 08:53:04 cg Exp $'
 ! !