@@ -265,10 +265,12 @@
        ;; send the data and get the response
        ;; extract the needed info from the http data and 
        ;; process and return it.
        (let* ((send-recieve (lambda ()
 			      (mutex-lock! *http-mutex*)
+			      ;; (condition-case (with-input-from-request "http://localhost"; #f read-lines)
+			      ;;					       ((exn http client-error) e (print e)))
 			      (set! res (with-input-from-request ;; was dat
 					 fullurl 
 					 (list (cons 'key "thekey")
 					       (cons 'cmd cmd)
 					       (cons 'params params))
@@ -376,10 +378,12 @@
       ;;
       ;; set_running after our first pass through and start the db
       ;;
       (if (eq? server-state 'available)
 	  (begin
+	    (tasks:server-set-state! tdb server-id "dbprep")
+	    (thread-sleep! 5) ;; give some margin for queries to complete before switching from file based access to server based access
 	    (set! *inmemdb*  (db:setup run-id))
 	    (tasks:server-set-state! tdb server-id "running")))
 
       (if (and (<= rem-time 4)
 	       (> rem-time 0))