--- a/DirectoryContents.st	Tue Nov 17 16:22:00 1998 +0100
+++ b/DirectoryContents.st	Sun Nov 22 14:07:22 1998 +0100
@@ -181,7 +181,7 @@
         |file|
 
         file := directory construct:fn.
-        (aTwoArgBlock value:name value:(file isDirectory)) ifTrue:[
+        (aTwoArgBlock value:file value:(file isDirectory)) ifTrue:[
             ^ true
         ]
     ].
@@ -358,5 +358,5 @@
 !DirectoryContents class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/DirectoryContents.st,v 1.6 1998-09-24 20:04:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/DirectoryContents.st,v 1.7 1998-11-22 13:07:22 cg Exp $'
 ! !