Index: dbfile.scm
==================================================================
--- dbfile.scm
+++ dbfile.scm
@@ -202,11 +202,12 @@
   )
 )
 
 (define (dbfile:make-tmpdir-name areapath)
   (let* ((dname (conc "/tmp/"(current-user-name)"/" (string-translate areapath "/" "."))))
-    (create-directory dname #t)
+    (unless (directory-exists? dname)
+      (create-directory dname #t))
     dname))
 
 (define (dbfile:run-id->path apath run-id)
   (conc apath"/"(dbfile:run-id->dbname run-id)))