--- a/AbstractSettingsApplication.st	Mon Jul 29 16:08:55 2013 +0200
+++ b/AbstractSettingsApplication.st	Mon Jul 29 16:09:03 2013 +0200
@@ -14472,9 +14472,7 @@
                            makeExecutableForAll.
                     ]
                 ].
-                (fn isDirectory
-                and:[fn isReadable
-                and:[fn isWritable]]) ifTrue:[
+                (fn isWritableDirectory and:[fn isReadable]) ifTrue:[
                     AbstractSourceCodeManager cacheDirectoryName:nm.
                 ] ifFalse:[
                     self warn:'Invalid sourceCache directory.'
@@ -14925,7 +14923,7 @@
         ^ self.
     ].
 
-    (fn isReadable and:[fn isWritable]) ifFalse:[
+    (fn isWritableDirectory and:[fn isReadable]) ifFalse:[
         (self confirm:(resources 
                             stringWithCRs:'SourceCache directory "%1" is not both readable and writable.\Change ?'
                             with:nm)
@@ -18024,10 +18022,10 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.485 2013-07-25 10:01:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.486 2013-07-29 14:09:03 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.485 2013-07-25 10:01:21 cg Exp $'
-! !
-
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.486 2013-07-29 14:09:03 stefan Exp $'
+! !
+