--- a/FileDirectory.st	Wed Nov 22 14:15:57 2000 +0100
+++ b/FileDirectory.st	Fri Dec 01 11:14:32 2000 +0100
@@ -151,6 +151,12 @@
     "
 ! !
 
+!FileDirectory class methodsFor:'Compatibility - Squeak'!
+
+pathNameDelimiter
+    ^ Filename separator
+! !
+
 !FileDirectory class methodsFor:'private'!
 
 fullPathNameOf:name in:path
@@ -624,6 +630,6 @@
 !FileDirectory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.39 2000-08-22 13:47:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.40 2000-12-01 10:14:32 cg Exp $'
 ! !
 FileDirectory initialize!