@@ -98,10 +98,11 @@
 	typed-records
 	sparse-vectors
 	format
 	srfi-4
 	srfi-14
+	srfi-18
 	)
 
 ;; (include "common_records.scm")
 ;; (include "db_records.scm")
 ;; (include "run_records.scm")
@@ -3754,7 +3755,12 @@
 ;; ease debugging by loading ~/.dashboardrc
 (let ((debugcontrolf (get-debugcontrolf)))
   (if debugcontrolf
       (load debugcontrolf)))
 
-(main)
+(import srfi-18)
+
+(thread-join!
+ (thread-start!
+  (make-thread main "main")))
+