@@ -83,10 +83,11 @@
 			    (if (and (config-lookup  *configdat* "server" "port")
 				     (string->number (config-lookup  *configdat* "server" "port")))
 				(string->number (config-lookup  *configdat* "server" "port"))
 				(+ 5000 (random 1001)))))
 	 (link-tree-path (config-lookup *configdat* "setup" "linktree")))
+    (set! db *inmemdb*)
     (root-path     (if link-tree-path 
 		       link-tree-path
 		       (current-directory))) ;; WARNING: SECURITY HOLE. FIX ASAP!
     (handle-directory spiffy-directory-listing)
     ;; http-transport:handle-directory) ;; simple-directory-handler)
@@ -508,11 +509,10 @@
 		   (th3 (make-thread http-transport:keep-running "Keep running")))
 ;;		   (th1 (make-thread server:write-queue-handler  "write queue")))
 	      (set! *cache-on* #t)
 	      (set! *db*       (open-db))
 	      (set! *inmemdb*  (open-in-mem-db))
-	      (set! db *inmemdb*)
 	      (db:sync-to *db* *inmemdb*)
 
 	      (thread-start! th2)
 	      (thread-start! th3)
 	      ;; (thread-start! th1)