--- a/DataBaseSourceCodeManagementSettingsAppl.st	Mon Jul 29 16:08:38 2013 +0200
+++ b/DataBaseSourceCodeManagementSettingsAppl.st	Mon Jul 29 16:08:55 2013 +0200
@@ -592,7 +592,7 @@
         ^ false.
     ].
 
-    (fn isReadable and:[fn isWritable]) ifFalse:[
+    (fn isWritableDirectory and:[fn isReadable]) ifFalse:[
         (self confirm:(resources 
                             stringWithCRs:'Directory "%1" is not both readable and writable.\Change ?'
                             with:nm)
@@ -603,7 +603,7 @@
             makeReadableForAll;
             makeWritableForAll;
             makeExecutableForAll.
-        (fn isReadable and:[fn isWritable]) ifFalse:[
+        (fn isWritableDirectory and:[fn isReadable]) ifFalse:[
             self warn:(resources 
                                 stringWithCRs:'Directory "%1" cannot be made both readable and writable.'
                                 with:nm).
@@ -686,9 +686,10 @@
 !DataBaseSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.14 2012-03-16 11:17:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.15 2013-07-29 14:08:55 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.14 2012-03-16 11:17:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.15 2013-07-29 14:08:55 stefan Exp $'
 ! !
+