--- a/FileSelectionList.st	Fri Oct 11 15:09:56 2002 +0200
+++ b/FileSelectionList.st	Mon Oct 14 17:30:30 2002 +0200
@@ -868,10 +868,10 @@
     (directoryChangeCheckBlock isNil
     or:[directoryChangeCheckBlock value:newDir]) ifTrue:[
         newDir isReadable ifFalse:[
-            warnMessage := 'not allowed to read directory %1'
+            warnMessage := 'No permission to read directory %1 !!'
         ] ifTrue:[
             newDir isExecutable ifFalse:[
-                warnMessage := 'not allowed to change to directory %1'
+                warnMessage := 'No permission to enter directory %1 !!'
             ] ifTrue:[
                 ok := true.
             ]
@@ -1083,5 +1083,5 @@
 !FileSelectionList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.48 2001-06-19 15:02:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.49 2002-10-14 15:30:30 ca Exp $'
 ! !