--- a/Filename.st	Sat Sep 11 14:07:26 2010 +0200
+++ b/Filename.st	Sun Sep 12 16:06:17 2010 +0200
@@ -2072,7 +2072,7 @@
 
 recursiveDirectoryContentsDo:aBlock 
     "evaluate aBlock for all files and directories found under the receiver.
-     The block is invoked with a string-argument.
+     The block is invoked with the relative filenames as string-argument.
      The walk is bread-first.
      This excludes any entries for '.' or '..'.
      Subdirectory files are included with a relative pathname.
@@ -2083,6 +2083,8 @@
     "
      '.' asFilename recursiveDirectoryContentsDo:[:f | Transcript showCR:f] 
     "
+
+    "Modified: / 12-09-2010 / 15:43:22 / cg"
 !
 
 recursiveDirectoryContentsDo:aBlock directoryPrefix:aPrefix
@@ -5805,11 +5807,11 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.358 2010-07-29 10:39:38 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.359 2010-09-12 14:06:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.358 2010-07-29 10:39:38 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.359 2010-09-12 14:06:17 cg Exp $'
 ! !
 
 Filename initialize!