--- a/FileDirectory.st	Mon Jan 27 14:57:48 2003 +0100
+++ b/FileDirectory.st	Mon Jan 27 16:46:28 2003 +0100
@@ -480,13 +480,10 @@
 !FileDirectory methodsFor:'private'!
 
 filenameFor:fileName
-    "create & return a fileName object for an entry in myself"
-
-    |f|
+    "return a filename representing the argument, fileName
+     either in myself (if the arg is a releative path) or absolute otherwise."
 
-    f := fileName asFilename.
-    f isAbsolute ifTrue:[^ f].
-    ^ (pathName asFilename construct:fileName)
+    ^ pathName asFilename filenameFor:fileName
 !
 
 getFullPathName
@@ -636,6 +633,7 @@
 !FileDirectory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.42 2002-05-15 08:26:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.43 2003-01-27 15:46:28 cg Exp $'
 ! !
+
 FileDirectory initialize!