Nicolas Cellier uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-nice.109.mcz

==================== Summary ====================

Name: Files-nice.109
Author: nice
Time: 8 May 2011, 2:04:45.069 pm
UUID: 77d77f84-de4f-4635-b523-06d551dbf720
Ancestors: Files-ul.108

minor refactorings: use #anySatisfy: #allSatisfy: #noneSatisfy: where it simplifies

=============== Diff against Files-ul.108 ===============

Item was changed:
  ----- Method: AcornFileDirectory>>directoryContentsFor: (in category 'private') -----
  directoryContentsFor: fullPath 
  	"Return a collection of directory entries for the files and directories in 
  	the directory with the given path. See primLookupEntryIn:index: for 
  	further details."
  	"FileDirectory default directoryContentsFor: ''"
  
  	| entries extraPath |
  	entries := super directoryContentsFor: fullPath.
  	fullPath isNullPath
  		ifTrue: [
  			"For Acorn we also make sure that at least the parent of the current dir 
  			is added - sometimes this is in a filing system that has not been (or 
  			cannot be) polled for disc root names"
  			extraPath := self class default containingDirectory.
  			"Only add the extra path if we haven't already got the root of the current dir in the list"
+ 			(entries anySatisfy: [:ent | extraPath fullName beginsWith: ent name]) 
+ 				ifFalse: [entries := entries
- 			entries detect: [:ent | extraPath fullName beginsWith: ent name] 
- 				ifNone: [entries := entries
  								copyWith: (DirectoryEntryDirectory
  										directory: self
  										name: extraPath fullName
  										creationTime: 0
  										modificationTime: 0
  										fileSize: 0)]].
  	^ entries
  !