Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1029,11 +1029,11 @@
 	 
 	 ;; clear out junk records
 	 ;;
 	 ((dejunk)
 	  (db:delay-if-busy mtdb) ;; ok to delay on mtdb
-	  (db:clean-up mtdb)
+	  (when (file-write-access? (db:dbdat-get-path mtdb)) (db:clean-up mtdb))
 	  (db:clean-up tmpdb)
 	  (db:clean-up refndb))
 
 	 ;; sync runs, test_meta etc.
 	 ;;