--- a/Filename.st	Thu Mar 13 17:34:17 2014 +0100
+++ b/Filename.st	Fri Mar 14 12:55:17 2014 +0100
@@ -1636,6 +1636,12 @@
 
 !Filename methodsFor:'comparing'!
 
+< aFilename
+    "compare file names - used for sorting"
+
+    ^ self asString < aFilename asString
+!
+
 = aFilename
     "return true, if the argument represents the same filename"
 
@@ -6058,11 +6064,11 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.409 2013-12-06 15:30:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.410 2014-03-14 11:55:17 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.409 2013-12-06 15:30:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.410 2014-03-14 11:55:17 stefan Exp $'
 ! !