--- a/FileDirectory.st	Fri Aug 16 11:38:32 2013 +0200
+++ b/FileDirectory.st	Fri Aug 16 13:49:12 2013 +0200
@@ -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!