@@ -281,18 +281,18 @@
 					  (sqlite3:finalize! db #t)
 					  (vector-set! *task-db* 0 #f)))))) "Cleanup db exit thread"))
 	  (th2 (make-thread (lambda ()
 			      (debug:print 4 "Attempting clean exit. Please be patient and wait a few seconds...")
 			      (if no-hurry
-				  (thread-sleep! 0.1) ;; give the clean up few seconds to do it's stuff
-				  (thread-sleep! 4))
+				  (thread-sleep! 5) ;; give the clean up few seconds to do it's stuff
+				  (thread-sleep! 2))
 			      (debug:print 4 " ... done")
 			      )
 			    "clean exit")))
-      (thread-start! th2)
       (thread-start! th1)
-      (thread-join! th2))))
+      (thread-start! th2)
+      (thread-join! th1))))
 
 (define (std-signal-handler signum)
   ;; (signal-mask! signum)
   (set! *time-to-exit* #t)
   (debug:print 0 "ERROR: Received signal " signum " exiting promptly")