--- a/CVSSourceCodeManagementSettingsAppl.st Mon Jul 29 16:08:10 2013 +0200
+++ b/CVSSourceCodeManagementSettingsAppl.st Mon Jul 29 16:08:14 2013 +0200
@@ -692,9 +692,7 @@
makeExecutableForAll.
]
].
- (fn isDirectory
- and:[fn isReadable
- and:[fn isWritable]]) ifTrue:[
+ (fn isWritableDirectory and:[fn isReadable]) ifTrue:[
CVSSourceCodeManager cacheDirectoryName:nm.
] ifFalse:[
self warn:'Invalid sourceCache directory.'
@@ -1142,10 +1140,10 @@
!CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.31 2013-05-07 16:58:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.32 2013-07-29 14:08:14 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.31 2013-05-07 16:58:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.32 2013-07-29 14:08:14 stefan Exp $'
! !