[Help-smalltalk] bug in Directory class>>allFilesMatching:do:

[Stefan Schmiedl]

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 [