@@ -23,11 +23,11 @@
     (filedb:fdb-set-db!        fdb db)
     (filedb:fdb-set-dbpath!    fdb dbpath)
     (filedb:fdb-set-pathcache! fdb (make-hash-table))
     (filedb:fdb-set-idcache!   fdb (make-hash-table))
     (filedb:fdb-set-partcache! fdb (make-hash-table))
-    ;(sqlite3:set-busy-timeout! db 1000000)
+    (sqlite3:set-busy-handler!  db (make-busy-timeout 136000))
     (if (not dbexists)
 	(begin
 	  (sqlite3:execute db "PRAGMA synchronous = OFF;")
 	  (sqlite3:execute db "CREATE TABLE names (id INTEGER PRIMARY KEY,name TEST);") ;; for future use - change path in paths table to path_id
 	  (sqlite3:execute db "CREATE INDEX name_index ON names (name);")
@@ -42,10 +42,15 @@
                                                    mtime     INTEGER DEFAULT -1);")
 	  (sqlite3:execute db "CREATE INDEX path_index ON paths (path,parent_id);")
 	  (sqlite3:execute db "CREATE TABLE bases (id INTEGER PRIMARY KEY,base TEXT,                  updated TIMESTAMP);")))
     fdb))
 
+(define (filedb:reopen-db fdb)
+  (let ((db (sqlite3:open-database (filedb:fdb-get-dbpath fdb))))
+    (filedb:fdb-set-db! fdb db)
+    (sqlite3:set-busy-handler!  db (make-busy-timeout 136000))))
+  
 (define (filedb:finalize-db! fdb)
   (sqlite3:finalize! (filedb:fdb-get-db fdb)))
 
 (define (filedb:get-current-time-string)
   (string-chomp (time->string (seconds->local-time (current-seconds)))))