Index: configf.scm
==================================================================
--- configf.scm
+++ configf.scm
@@ -774,14 +774,14 @@
     ht))
 
 ;; if 
 (define (configf:read-alist fname)
   (handle-exceptions
-      exn
-      #f
-    (configf:alist->config
-     (with-input-from-file fname read))))
+   exn
+   #f
+   (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* "INFO: Could not get lock on " fname))
   (let* ((dat  (configf:config->alist cdat))

Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -1562,11 +1562,11 @@
 			 cache-file
 			 (file-write-access? cache-path)
 			 allow-write-cache)
 		    (let ((tpath (conc cache-path "/.testconfig")))
 		      (debug:print-info 1 *default-log-port* "Caching testconfig for " test-name " in " tpath)
-                      (if (not (common:in-running-test?))
+                      (if (and tcfg (not (common:in-running-test?)))
                           (configf:write-alist tcfg tpath))))
 		tcfg))))))
   
 ;; sort tests by priority and waiton
 ;; Move test specific stuff to a test unit FIXME one of these days