--- a/StoreSourceCodeManagementSettingsAppl.st Sun Jul 28 11:38:21 2013 +0100
+++ b/StoreSourceCodeManagementSettingsAppl.st Thu Aug 01 10:27:56 2013 +0100
@@ -561,9 +561,7 @@
makeExecutableForAll.
]
].
- (fn isDirectory
- and:[fn isReadable
- and:[fn isWritable]]) ifTrue:[
+ (fn isWritableDirectory and:[fn isReadable]) ifTrue:[
StoreSourceCodeManager cacheDirectoryName:nm.
] ifFalse:[
self warn:'Invalid sourceCache directory.'
@@ -1144,11 +1142,11 @@
!StoreSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.19 2012-07-24 14:02:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.20 2013-07-29 14:08:24 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.19 2012-07-24 14:02:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.20 2013-07-29 14:08:24 stefan Exp $'
!
version_HG
@@ -1157,6 +1155,6 @@
!
version_SVN
- ^ '§Id§'
+ ^ '$Id: StoreSourceCodeManagementSettingsAppl.st,v 1.20 2013-07-29 14:08:24 stefan Exp $'
! !