--- a/GitSourceCodeManagementSettingsAppl.st	Mon Jul 29 16:07:06 2013 +0200
+++ b/GitSourceCodeManagementSettingsAppl.st	Mon Jul 29 16:08:10 2013 +0200
@@ -830,9 +830,7 @@
                    makeExecutableForAll.
             ]
         ].
-        (fn isDirectory
-        and:[fn isReadable
-        and:[fn isWritable]]) ifTrue:[
+        (fn isWritableDirectory and:[fn isReadable]) ifTrue:[
             GitSourceCodeManager cacheDirectoryName:nm.
         ] ifFalse:[
             self warn:'Invalid sourceCache directory.'
@@ -1217,9 +1215,10 @@
 !GitSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.9 2012-08-09 08:59:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.10 2013-07-29 14:08:10 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.9 2012-08-09 08:59:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.10 2013-07-29 14:08:10 stefan Exp $'
 ! !
+