Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -228,30 +228,29 @@
            (if (not readyexists)
                (common:simple-file-lock-and-wait lockfname))
            (let ((db      (sqlite3:open-database fname)))
              (sqlite3:set-busy-handler! db (make-busy-timeout 136000))
              (sqlite3:execute db "PRAGMA synchronous = 0;")
-             (if (not file-exists)
-                 (begin
-                   (if (and (configf:lookup *configdat* "setup" "tmp_mode") (string-match "^/tmp/.*" fname))
-                      (begin
-                       (print "DEBUG: Setting tmp_mode for " fname) 
-                       (sqlite3:execute db (configf:lookup *configdat* "setup" "tmp_mode"))
-                      )
-                   )  
-                   (if (and (configf:lookup *configdat* "setup" "nfs_mode") (not (string-match "^/tmp/.*" fname)))
-                       (begin
-                        (print "DEBUG: Setting nfs_mode for " fname)
-                        (sqlite3:execute db (configf:lookup *configdat* "setup" "nfs_mode"))
-                       )
-                   )  
-                   (if (and (not (or (configf:lookup *configdat* "setup" "tmp_mode") (configf:lookup *configdat* "setup" "nfs_mode")))  
-                            (configf:lookup *configdat* "setup" "use-wal")
-                            (string-match "^/tmp/.*" fname)) ;; this is a file in /tmp
-                       (sqlite3:execute db "PRAGMA journal_mode=WAL;")
-                       (debug:print 2 *default-log-port* "Creating " fname " in NON-WAL mode."))
-                   (initproc db)))
+             (if (and (configf:lookup *configdat* "setup" "tmp_mode") (string-match "^/tmp/.*" fname))
+                 (begin
+                   (print "DEBUG: Setting tmp_mode for " fname) 
+                   (sqlite3:execute db (configf:lookup *configdat* "setup" "tmp_mode"))
+                   )
+                 )  
+             (if (and (configf:lookup *configdat* "setup" "nfs_mode") (not (string-match "^/tmp/.*" fname)))
+                 (begin
+                   (print "DEBUG: Setting nfs_mode for " fname)
+                   (sqlite3:execute db (configf:lookup *configdat* "setup" "nfs_mode"))
+                   )
+                 )  
+             (if (and (not (or (configf:lookup *configdat* "setup" "tmp_mode") (configf:lookup *configdat* "setup" "nfs_mode")))  
+                      (configf:lookup *configdat* "setup" "use-wal")
+                      (string-match "^/tmp/.*" fname)) ;; this is a file in /tmp
+                 (sqlite3:execute db "PRAGMA journal_mode=WAL;")
+                 (debug:print 2 *default-log-port* "Creating " fname " in NON-WAL mode."))
+             (if (not file-exists)
+                 (initproc db))
              (if (not readyexists)
                  (begin
                    (common:simple-file-release-lock lockfname)
                    (with-output-to-file
                        readyfname