@@ -3349,15 +3349,16 @@
 (define (main)
   (let ((mtdb-path (conc *toppath* "/megatest.db"))) ;; 
     (if (and (file-exists? mtdb-path)
 	     (file-write-access? mtdb-path))
 	(if (not (args:get-arg "-skip-version-check"))
-	    (let ((th1 (make-thread common:exit-on-version-changed)))
-	      (thread-start! th1)
-	      (if (> megatest-version (common:get-last-run-version-number))
-		  (debug:print-info 0 *default-log-port* "Version bump detected, blocking until db sync complete")
-		  (thread-join! th1)))))
+            (common:exit-on-version-changed)))
+	;; (let ((th1 (make-thread common:exit-on-version-changed)))
+	;;   (thread-start! th1)
+	;;   (if (> megatest-version (common:get-last-run-version-number))
+	;;       (debug:print-info 0 *default-log-port* "Version bump detected, blocking until db sync complete")
+	;;       (thread-join! 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") ","))))