--- a/Filename.st	Fri Jan 19 23:57:45 2018 +0100
+++ b/Filename.st	Sat Jan 20 10:36:49 2018 +0100
@@ -2684,7 +2684,9 @@
     "
 !
 
-recursiveDirectoryContentsWithPrefix:aPrefix filesDo:fileBlock directoriesDo:dirBlock filterForVisitingDirectories:filterOrNil
+recursiveDirectoryContentsWithPrefix:aPrefix filesDo:fileBlock directoriesDo:dirBlock 
+    filterForVisitingDirectories:filterOrNil
+
     "evaluate aBlock for all files and directories found under the receiver.
      The blocks are invoked with a relative pathname as string-argument.
      The walk is breadth-first (first files, then directories).
@@ -2738,6 +2740,7 @@
                 subDir
                     recursiveDirectoryContentsWithPrefix:(p , dN) 
                     filesDo:fileBlock directoriesDo:dirBlock
+                    filterForVisitingDirectories:filterOrNil
             ].
         ].
     ].