--- a/AbstractFileBrowser.st	Mon Dec 22 17:46:48 2008 +0100
+++ b/AbstractFileBrowser.st	Mon Dec 22 17:47:55 2008 +0100
@@ -5567,8 +5567,9 @@
         directories isEmpty ifTrue:[^ self].
 
         imageFiles := self allFilesInSelectedDirectoriesForWhich:[:f | f mimeTypeFromName isImage].
-        imageFiles := imageFiles select:[:f | f baseName startsWith:'nylons_dir67_'].
-
+        "/ imageFiles := imageFiles select:[:f | f baseName startsWith:'foo'].
+        imageFiles sort:[:a :b | a pathName < b pathName].
+        
         "/ for each, get the color histogram
         histogramsV := Dictionary new.
         histogramsH := Dictionary new.
@@ -7675,5 +7676,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.393 2008-12-22 16:46:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.394 2008-12-22 16:47:55 cg Exp $'
 ! !