@@ -750,11 +750,12 @@
 			       (read-config test-configf #f system-allowed environ-patt: (if system-allowed
 											     "pre-launch-env-vars"
 											     #f)))
 			   #f)))
     (hash-table-set! *testconfigs* test-name tcfg)
-    (if (and cache-path
+    (if (and testexists
+	     cache-path
 	     (not cache-exists)
 	     (file-write-access? cache-path))
 	(let ((tpath (conc cache-path "/.testconfig")))
 	  (debug:print-info 1 "Caching testconfig for " test-name " in " tpath)
 	  (configf:write-alist tcfg tpath)))