Eliot Miranda uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-eem.137.mcz

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

Name: Files-eem.137
Author: eem
Time: 14 August 2014, 4:09:05.676 pm
UUID: 833a2130-ce18-454b-8a67-f82db8a299af
Ancestors: Files-eem.136

Fix UnixFileDirectory directoryExists: & fileOrDirectoryExists:
for cases such as 'foo/bar' '../foo/bar' etc.

=============== Diff against Files-eem.136 ===============

Item was changed:
  ----- Method: UnixFileDirectory>>directoryExists: (in category 'testing') -----
  directoryExists: filenameOrPath
+ 	"Answers true if the directory exists.  Overrides to handle the root directory /
+ 	 and relative paths."
+ 	| fName dir |
- 	"Handles the special case of testing for the root dir: there isn't a
- 	possibility to express the root dir as full pathname like '/foo'."
  
+ 	filenameOrPath = '/' ifTrue:
+ 		[^true].
+ 
+ 	DirectoryClass
+ 		splitName: filenameOrPath
+ 		to: [:filePath :name |
+ 			fName := name.
+ 			dir := filePath isEmpty
+ 					ifTrue: [self]
+ 					ifFalse:
+ 						[FileDirectory on: (filePath first = $/
+ 											ifTrue: [filePath]
+ 											ifFalse: [self fullName, '/', filePath])]].
+ 
+ 	^dir exists
+ 	  and: [(dir directoryEntryForName: fName)
+ 			ifNotNil: [:e| e isDirectory]
+ 			ifNil: [false]]!
- 	^ filenameOrPath = '/' or: [super directoryExists: filenameOrPath]!

Item was changed:
  ----- Method: UnixFileDirectory>>fileOrDirectoryExists: (in category 'testing') -----
+ fileOrDirectoryExists: filenameOrPath
+ 	"Answer true if either a file or a directory file of the given name exists. The given name
+ 	 may be either a full path name or a local name within this directory. Overrides to handle
+ 	 the root directory / and relative paths."
+ 	| fName dir |
- fileOrDirectoryExists: filenameOrPath 
- 	"Handles the special case of testing for the root dir: there isn't a 
- 	possibility to express the root dir as full pathname like '/foo'."
  
+ 	filenameOrPath = '/' ifTrue:
+ 		[^true].
+ 
+ 	DirectoryClass
+ 		splitName: filenameOrPath
+ 		to: [:filePath :name |
+ 			fName := name.
+ 			dir := filePath isEmpty
+ 					ifTrue: [self]
+ 					ifFalse:
+ 						[FileDirectory on: (filePath first = $/
+ 											ifTrue: [filePath]
+ 											ifFalse: [self fullName, '/', filePath])]].
+ 
+ 	^dir exists
+ 	  and: [(dir includesKey: fName) or: [fName isEmpty and: [dir entries size > 1]]]!
- 	^ filenameOrPath = '/' or: [super fileOrDirectoryExists: filenameOrPath]!