diff --git a/kernel/Directory.st b/kernel/Directory.st
index d587da3..99a9fcd 100644
--- a/kernel/Directory.st
+++ b/kernel/Directory.st
@@ -206,7 +206,7 @@ how to use the instances returned by my class methods.'>
Directory class >> allFilesMatching: aPattern do: aBlock [
"Invoke #allFilesMatching:do: on the current working directory."
<category: 'file operations'>
- (File name: self working) allFilesMatching: aPattern do: aBlock
+ (File name: self working name) allFilesMatching: aPattern do: aBlock
]
Directory class >> create: dirName [
_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk
