--- a/AbstractFileBrowser.st	Mon Mar 06 19:33:35 2006 +0100
+++ b/AbstractFileBrowser.st	Mon Mar 06 19:34:27 2006 +0100
@@ -6481,18 +6481,19 @@
 !
 
 recursiveAnyFilesPresentWithSuffix:suffix
-    |directories|
-
-^ true. "/ the code below is too slow for a menu enabling operation
-    directories := self currentDirectories value.
-    directories do:[:dir|
-        [
-            dir recursiveDirectoryContentsDo:[:f |
-                ((dir construct:f) suffix = suffix) ifTrue:[ ^ true]
-            ]
-        ] on:FileStream openErrorSignal do:[:ex|].
-    ].
-    ^ false.
+    ^ true. "/ the code below is too slow for a menu enabling operation
+
+"/    |directories|
+"/
+"/    directories := self currentDirectories value.
+"/    directories do:[:dir|
+"/        [
+"/            dir recursiveDirectoryContentsDo:[:f |
+"/                (f asFilename suffix = suffix) ifTrue:[ ^ true]
+"/            ]
+"/        ] on:FileStream openErrorSignal do:[:ex|].
+"/    ].
+"/    ^ false.
 !
 
 recursiveAnySTFilesPresent
@@ -7010,5 +7011,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.324 2006-03-06 18:33:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.325 2006-03-06 18:34:27 cg Exp $'
 ! !