--- a/Filename.st	Tue May 29 11:31:21 2007 +0200
+++ b/Filename.st	Tue May 29 12:03:45 2007 +0200
@@ -1825,11 +1825,14 @@
 directories
     "return a collection of directories contained in the directory represented by the receiver."
 
-    ^ self directoryContentsAsFilenames select:[:eachFileOrDirectory | eachFileOrDirectory isDirectory]
+    ^ self directoryContentsAsFilenames 
+        select:[:eachFileOrDirectory | eachFileOrDirectory isDirectory]
 
     "
      '.' asFilename directories.
     "
+
+    "Modified: / 29-05-2007 / 12:02:56 / cg"
 !
 
 directoriesDo:aBlock
@@ -1920,25 +1923,29 @@
 files
     "return a collection of files contained in the directory represented by the receiver."
 
-    ^ self directoryContentsAsFilenames select:[:eachFileOrDirectory | eachFileOrDirectory isDirectory not]
+    ^ self directoryContentsAsFilenames 
+        select:[:eachFileOrDirectory | eachFileOrDirectory isDirectory not]
 
     "
      '.' asFilename files.
     "
+
+    "Modified: / 29-05-2007 / 12:02:15 / cg"
 !
 
 filesDo:aBlock
     "evaluate aBlock for all files contained in the directory represented by the receiver."
 
-    ^ self directoryContentsAsFilenames do:[:eachFileOrDirectory | 
-        eachFileOrDirectory isDirectory ifFalse:[ aBlock value: eachFileOrDirectory]
-    ].
+    ^ self directoryContentsAsFilenames 
+        do:[:eachFileOrDirectory | 
+            eachFileOrDirectory isDirectory ifFalse:[ aBlock value: eachFileOrDirectory]].
 
     "
      '.' asFilename filesDo:[:f | Transcript showCR:f].
     "
 
     "Created: / 29-08-2006 / 11:03:15 / cg"
+    "Modified: / 29-05-2007 / 12:02:46 / cg"
 !
 
 recursiveDirectoryContentsDo:aBlock 
@@ -5494,7 +5501,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.314 2007-05-28 11:51:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.315 2007-05-29 10:03:45 cg Exp $'
 ! !
 
 Filename initialize!