--- a/FileDirectory.st	Mon Aug 19 23:30:27 2013 +0100
+++ b/FileDirectory.st	Tue Aug 20 00:07:19 2013 +0100
@@ -15,7 +15,7 @@
 	instanceVariableNames:'pathName lazy'
 	classVariableNames:'PathOfCurrentDirectory'
 	poolDictionaries:''
-	category:'Obsolete'
+	category:'Compatibility-Squeak'
 !
 
 ArrayedCollection subclass:#DirectoryEntry
@@ -45,10 +45,10 @@
 "
     Notice:
         This class is obsolete and does work only under UNIX. 
-        Use Filename instead.
+        Use Filename instead. It is left here for squeak compatibility.
 
         This class is not available in other ST-systems;
-        in contrast, ST-80 provides a Filename class.
+        in contrast, VisualWorks provides a Filename class.
         Therefore, Filename has taken over the functionality.
 
     FileDirectories represent directories in the underlying host system.
@@ -310,6 +310,15 @@
     ^ self exists:name
 !
 
+oldFileNamed:fn
+    "Squeak/ST80 compatibility"
+
+    |f|
+
+    f := self filenameFor:fn.
+    ^ f readStream
+!
+
 readOnlyFileNamed:fn
     "Squeak/ST80 compatibility"
 
@@ -817,11 +826,12 @@
 !FileDirectory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.53 2012-08-31 17:57:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.54 2013-08-16 11:49:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.53 2012-08-31 17:57:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.54 2013-08-16 11:49:12 cg Exp $'
 ! !
 
+
 FileDirectory initialize!