--- a/FileDirectory.st	Tue Apr 25 19:45:27 2006 +0200
+++ b/FileDirectory.st	Wed Apr 26 11:15:03 2006 +0200
@@ -196,31 +196,40 @@
 !FileDirectory methodsFor:'Compatibility-Squeak'!
 
 deleteDirectory:dirName
-    "ST80 compatibility"
+    "Squeak/ST80 compatibility"
 
     ^ self removeDirectory:dirName
 !
 
 deleteFileNamed:fileName
-    "ST80 compatibility"
+    "Squeak/ST80 compatibility"
 
     ^ self removeFile:fileName
 !
 
+directoryExists:dir
+    "Squeak/ST80 compatibility"
+
+    |f|
+
+    f := self filenameFor:dir.
+    ^ f exists and:[f isDirectory ].
+!
+
 directoryNames
-    "ST80 compatibility"
+    "Squeak/ST80 compatibility"
 
     ^ self directories
 !
 
 fileNames
-    "ST80 compatibility"
+    "Squeak/ST80 compatibility"
 
     ^ self files
 !
 
 includesKey:name
-    "ST80 compatibility"
+    "Squeak/ST80 compatibility"
 
     ^ self exists:name
 ! !
@@ -671,7 +680,7 @@
 !FileDirectory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.45 2003-10-09 21:19:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.46 2006-04-26 09:15:03 cg Exp $'
 ! !
 
 FileDirectory initialize!