Index: configf.scm
==================================================================
--- configf.scm
+++ configf.scm
@@ -686,11 +686,11 @@
     (configf:alist->config
      (with-input-from-file fname read))))
 
 (define (configf:write-alist cdat fname)
   (if (not (common:faux-lock fname))
-      (debug:print 0 *default-log-port* "WARNING: could not get lock on " fname))
+      (debug:print 0 *default-log-port* "INFO: Could not get lock on " fname))
   (let* ((dat  (configf:config->alist cdat))
          (res
           (begin
             (with-output-to-file fname ;; first write out the file
               (lambda ()

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -1004,12 +1004,12 @@
 	      ))
         ;; one more attempt to cache the configs for future reading
         (let* ((cachefiles   (launch:get-cache-file-paths areapath toppath target mtconfig))
                (mtcachef     (car cachefiles))
                (rccachef     (cdr cachefiles)))
-          (if (and rccachef *runconfigdat*) (configf:write-alist *runconfigdat* rccachef))
-          (if (and mtcachef *configdat*)    (configf:write-alist *configdat* mtcachef))
+          (if (and rccachef *runconfigdat* (not (file-exists? rccachef))) (configf:write-alist *runconfigdat* rccachef))
+          (if (and mtcachef *configdat*    (not (file-exists? mtcachef))) (configf:write-alist *configdat* mtcachef))
           (if (and rccachef mtcachef *runconfigdat* *configdat*)
               (set! *configstatus* 'fulldata)))
 
 	;; if have -append-config then read and append here
 	(let ((cfname (args:get-arg "-append-config")))