Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -2893,11 +2893,13 @@
 (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
   (if (file-exists? debugcontrolf)
       (load debugcontrolf)))
 
 (define (main)
-  (if (not (args:get-arg "-skip-version-check"))(common:exit-on-version-changed))
+  (if (not (args:get-arg "-skip-version-check"))
+      (let ((th1 (make-thread common:exit-on-version-changed)))
+	(thread-start! th1)))
   (let* ((commondat       (dboard:commondat-make)))
     ;; Move this stuff to db.scm? I'm not sure that is the right thing to do...
     (cond 
      ((args:get-arg "-test") ;; run-id,test-id
       (let* ((dat     (let ((d (map string->number (string-split (args:get-arg "-test") ","))))