Levente Uzonyi uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-ul.112.mcz

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

Name: Files-ul.112
Author: ul
Time: 3 August 2011, 1:44:29.679 am
UUID: 5409c0c6-6b2b-bc4f-9a69-edc3b16dfbbc
Ancestors: Files-ul.111

Removed unnecessary blocks.

=============== Diff against Files-ul.111 ===============

Item was changed:
  ----- Method: FileDirectory>>entryAt:ifAbsent: (in category 'file status') -----
  entryAt: fileName ifAbsent: aBlock
  	"Find the entry with local name fileName and answer it.
  	If not found, answer the result of evaluating aBlock."
  	| comparisonBlock |
  	self isCaseSensitive
  		ifTrue: [comparisonBlock := [:entry | entry name = fileName]]
  		ifFalse: [comparisonBlock := [:entry | entry name sameAs: fileName]].
+ 	^ self entries detect: comparisonBlock ifNone: aBlock!
- 	^ self entries detect: comparisonBlock ifNone: [aBlock value]!