--- a/AbstractLauncherApplication.st	Wed Aug 28 10:43:13 2019 +0200
+++ b/AbstractLauncherApplication.st	Wed Aug 28 10:44:37 2019 +0200
@@ -5242,7 +5242,7 @@
                     nm := sourceCacheDir value.
                     nm notEmptyOrNil ifTrue:[
                         (fn := nm asFilename) exists ifFalse:[
-                            (self confirm:('CVS cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[
+                            (self confirm:(c'CVS cache directory "%1" does not exist\ncreate ?' bindWith:nm)) ifTrue:[
                                 fn makeDirectory;
                                    makeReadableForAll;
                                    makeWritableForAll;
@@ -5252,7 +5252,7 @@
                         (fn isWritableDirectory and:[fn isReadable]) ifTrue:[
                             AbstractSourceCodeManager cacheDirectoryName:(sourceCacheDir value).
                         ] ifFalse:[
-                            self warn:'Invalid sourceCache directory.'
+                            self warn:'Invalid sourceCache directory (not a read/writable directory).'
                         ]
                     ]
 "/                ]