2007-01-09  Stephen Compall  <address@hidden>

	* kernel/Directory.st (allFilesMatching:do:): Pass Directory
	entries to aBlock if they match aPattern.

--- orig/kernel/Directory.st
+++ mod/kernel/Directory.st
@@ -206,13 +206,12 @@
 
     self do: [ :name || f | 
 	f := self at: name.
+	(aPattern match: name)
+	    ifTrue: [ aBlock value: f ].
 	f isDirectory 
 	    ifTrue: [
 		((#('.' '..') includes: name) or: [ f isSymbolicLink ])
 		    ifFalse: [ f allFilesMatching: aPattern do: aBlock ] ]
-	    ifFalse: [
-		(aPattern match: name)
-		    ifTrue: [ aBlock value: f ] ] ]
 !
 
 contents