--- a/FileDir.st	Thu Apr 25 18:12:44 1996 +0200
+++ b/FileDir.st	Thu Apr 25 18:20:46 1996 +0200
@@ -11,10 +11,10 @@
 "
 
 Collection subclass:#FileDirectory
-	 instanceVariableNames:'pathName lazy'
-	 classVariableNames:'PathOfCurrentDirectory'
-	 poolDictionaries:''
-	 category:'Collections-Files'
+	instanceVariableNames:'pathName lazy'
+	classVariableNames:'PathOfCurrentDirectory'
+	poolDictionaries:''
+	category:'Collections-Files'
 !
 
 !FileDirectory class methodsFor:'documentation'!
@@ -42,12 +42,19 @@
     loop over the filenames in a directory using 'aFileDirectory do:[:nm | ...]'.
 
     Notice:
-	This class is not available in other ST-systems, while for example,
-	ST-80 provides a Filename class.
-	Therefore, Filename will take over much of the functionality in the near 
-	future.
+        This class is not available in other ST-systems, while for example,
+        ST-80 provides a Filename class.
+        Therefore, Filename will take over much of the functionality in the near 
+        future.
+
+        Use instances of Filename if possible.
 
-	Use instances of Filename if possible.
+    [author:]
+        Claus Gittinger
+
+    [see also:]
+        Filename
+        FileStream DirectoryStream OperatingSystem
 "
 ! !
 
@@ -583,6 +590,6 @@
 !FileDirectory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/FileDir.st,v 1.26 1995-11-23 17:05:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/FileDir.st,v 1.27 1996-04-25 16:15:05 cg Exp $'
 ! !
 FileDirectory initialize!