--- a/MercurialSourceCodeManagementSettingsAppl.st	Sun Jul 28 11:38:21 2013 +0100
+++ b/MercurialSourceCodeManagementSettingsAppl.st	Thu Aug 01 10:27:56 2013 +0100
@@ -870,9 +870,7 @@
                    makeExecutableForAll.
             ]
         ].
-        (fn isDirectory
-        and:[fn isReadable
-        and:[fn isWritable]]) ifTrue:[
+        (fn isWritableDirectory and:[fn isReadable]) ifTrue:[
             MercurialSourceCodeManager cacheDirectoryName:nm.
         ] ifFalse:[
             self warn:'Invalid sourceCache directory.'
@@ -1245,11 +1243,11 @@
 !MercurialSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.19 2012-08-09 08:59:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.20 2013-07-29 14:08:17 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.19 2012-08-09 08:59:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.20 2013-07-29 14:08:17 stefan Exp $'
 !
 
 version_HG