Index: filedb.scm
==================================================================
--- filedb.scm
+++ filedb.scm
@@ -40,10 +40,13 @@
                                                    gid       INTEGER DEFAULT -1,
                                                    size      INTEGER DEFAULT -1,
                                                    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);")))
+    ;; close the sqlite3 db and open it as needed
+    (filedb:finalize-db! fdb)
+    (filedb:fdb-set-db! fdb #f)
     fdb))
 
 (define (filedb:reopen-db fdb)
   (let ((db (sqlite3:open-database (filedb:fdb-get-dbpath fdb))))
     (filedb:fdb-set-db! fdb db)
@@ -113,10 +116,11 @@
 (define (filedb:register-path fdb path #!key (save-stat #f))
   (let* ((db        (filedb:fdb-get-db        fdb))
 	 (pathcache (filedb:fdb-get-pathcache fdb))
 	 (stat      (if save-stat (file-stat path #t)))
 	 (id        (hash-table-ref/default pathcache path #f)))
+    (if (not db)(filedb:reopen-db fdb))
     (if id id 
         (let ((plist (string-split path "/")))
           (let loop ((head (car plist))
                      (tail (cdr plist))
                      (parent 0))
@@ -219,10 +223,11 @@
 
 (define (filedb:get-path fdb id)
   (let* ((db      (filedb:fdb-get-db      fdb))
 	 (idcache (filedb:fdb-get-idcache fdb))
 	 (path    (hash-table-ref/default idcache id #f)))
+    (if (not db)(filedb:reopen-db fdb))
     (if path path
         (let loop ((curr-id id)
                    (path    ""))
           (let ((path-record (filedb:get-path-record fdb curr-id)))
             (if (not path-record) #f ;; this id has no path