--- a/AbstractLauncherApplication.st	Mon Oct 27 11:01:43 2003 +0100
+++ b/AbstractLauncherApplication.st	Mon Oct 27 11:02:58 2003 +0100
@@ -4260,10 +4260,9 @@
                                    makeExecutableForAll.
                             ]
                         ].
-                        (fn exists 
-                        and:[fn isDirectory
+                        (fn isDirectory
                         and:[fn isReadable
-                        and:[fn isWritable]]]) ifTrue:[
+                        and:[fn isWritable]]) ifTrue:[
                             AbstractSourceCodeManager cacheDirectoryName:(sourceCacheDir value).
                         ] ifFalse:[
                             self warn:'Invalid sourceCache directory.'
@@ -6369,5 +6368,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.294 2003-10-22 14:45:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.295 2003-10-27 10:02:58 cg Exp $'
 ! !