@@ -671,12 +671,15 @@
 	(pp dat)))
     (if (file-exists? fname)   ;; now verify it is readable
 	(if (configf:read-alist fname)
 	    #t ;; data is good.
 	    (begin
-	      (delete-file fname)
-	      (debug:print 0 *default-log-port* "WARNING: content " dat " for cache " fname " is not readable. Deleting generated file.")
+	      (handle-exceptions
+		  exn
+		  #f
+		(debug:print 0 *default-log-port* "WARNING: content " dat " for cache " fname " is not readable. Deleting generated file.")
+		(delete-file fname))
 	      #f))
 	#f)))
 
 ;; convert hierarchial list to ini format
 ;;