@@ -3440,11 +3440,11 @@
             (common:exit-on-version-changed)))
     (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") ",")))) 
+	(let* ((dat     (let ((d (map string->number (string-split (args:get-arg "-test") ",")))) 
 			  (if (> (length d) 1)
 			      d
 			      (list #f #f))))
 	       (run-id  (car dat))
 	       (test-id (cadr dat)))
@@ -3467,21 +3467,21 @@
 	 tab-num: 1)
 	(iup:callback-set! *tim*
 			   "ACTION_CB"
 			   (lambda (time-obj)
 			     (let ((update-is-running #f))
-			       (mutex-lock! (dboard:commondat-update-mutex commondat))
-			       (set! update-is-running (dboard:commondat-updating commondat))
-			       (if (not update-is-running)
-				   (dboard:commondat-updating-set! commondat #t))
-			       (mutex-unlock! (dboard:commondat-update-mutex commondat))
-			       (if (not update-is-running) ;; we know that the update was not running and we now have a lock on doing an update
-				   (begin
-				     (dboard:common-run-curr-updaters commondat) ;; (dashboard:run-update commondat)
-				     (mutex-lock! (dboard:commondat-update-mutex commondat))
-				     (dboard:commondat-updating-set! commondat #f)
-				     (mutex-unlock! (dboard:commondat-update-mutex commondat)))
+			     (mutex-lock! (dboard:commondat-update-mutex commondat))
+			     (set! update-is-running (dboard:commondat-updating commondat))
+			     (if (not update-is-running)
+			     (dboard:commondat-updating-set! commondat #t))
+			     (mutex-unlock! (dboard:commondat-update-mutex commondat))
+			     (if (not update-is-running) ;; we know that the update was not running and we now have a lock on doing an update
+			     (begin
+			     (dboard:common-run-curr-updaters commondat) ;; (dashboard:run-update commondat)
+			     (mutex-lock! (dboard:commondat-update-mutex commondat))
+			     (dboard:commondat-updating-set! commondat #f)
+			     (mutex-unlock! (dboard:commondat-update-mutex commondat)))
 				   ))
 			     1))))
       
       (let ((th1 (make-thread (lambda ()
 				(thread-sleep! 1)