--- a/FileBasedSourceCodeManagementSettingsAppl.st	Mon Jul 29 16:08:24 2013 +0200
+++ b/FileBasedSourceCodeManagementSettingsAppl.st	Mon Jul 29 16:08:27 2013 +0200
@@ -375,7 +375,7 @@
 !FileBasedSourceCodeManagementSettingsAppl class methodsFor:'others'!
 
 version_FileRepository
-    ^ '§Path: stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st, Version: 1§'
+    ^ '$Path: stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st, Version: 1$'
 ! !
 
 !FileBasedSourceCodeManagementSettingsAppl class methodsFor:'queries'!
@@ -601,7 +601,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)
@@ -612,7 +612,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).
@@ -682,9 +682,10 @@
 !FileBasedSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st,v 1.14 2012-08-09 08:44:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st,v 1.15 2013-07-29 14:08:27 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st,v 1.14 2012-08-09 08:44:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st,v 1.15 2013-07-29 14:08:27 stefan Exp $'
 ! !
+