--- a/FileDirectory.st	Sun Jul 10 00:59:39 1994 +0200
+++ b/FileDirectory.st	Fri Aug 05 02:55:07 1994 +0200
@@ -20,6 +20,8 @@
 FileDirectory comment:'
 COPYRIGHT (c) 1989 by Claus Gittinger
              All Rights Reserved
+
+$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.11 1994-08-05 00:54:45 claus Exp $
 '!
 
 !FileDirectory class methodsFor:'documentation'!
@@ -40,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.10 1994-06-02 16:20:16 claus Exp $
+$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.11 1994-08-05 00:54:45 claus Exp $
 "
 !
 
@@ -468,6 +470,15 @@
     ^ OperatingSystem typeOf:(pathName , '/' , aFileName)
 !
 
+exists:name
+    "return true, if the given name exists in myself"
+
+    (name startsWith:'/') ifTrue:[
+        ^ OperatingSystem isValidPath:name
+    ].
+    ^ OperatingSystem isValidPath:(pathName , '/' , name)
+!
+
 isDirectory:name
     "return true, if the given name is that of a directory in myself"