Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -2404,20 +2404,21 @@
                               )
                             
                              )) "runs-summary-click-callback"))))
 	 (runs-summary-updater  
           (lambda ()
-	    (mutex-lock! update-mutex)
+	    ;; (mutex-lock! update-mutex)
             (if  (or (dashboard:database-changed? commondat tabdat context-key: 'runs-summary-updater)
                      (dboard:tabdat-view-changed tabdat))
                  (debug:catch-and-dump
                   (lambda () ;; check that run-matrix is initialized before calling the updater
 		    (if run-matrix 
 			(dashboard:runs-summary-updater commondat tabdat tb cell-lookup run-matrix)))
                   "dashboard:runs-summary-updater")
                  )
-	    (mutex-unlock! update-mutex)))
+	    #;(mutex-unlock! update-mutex)
+	    ))
          (runs-summary-control-panel (dashboard:runs-summary-control-panel tabdat))
          )
     (dboard:commondat-add-updater commondat runs-summary-updater tab-num: tab-num)
     (dboard:tabdat-runs-tree-set! tabdat tb)
     (iup:vbox
@@ -3344,14 +3345,14 @@
 	(vch (dboard:tabdat-view-changed tabdat)))
     (if (and cnv dwg vch)
 	(begin
 	  (vg:drawing-xoff-set! dwg (dboard:tabdat-xadj tabdat))
 	  (vg:drawing-yoff-set! dwg (dboard:tabdat-yadj tabdat))
-	  (mutex-lock! mtx)
+	  ;; (mutex-lock! mtx)
 	  (canvas-clear! cnv)
 	  (vg:draw dwg tabdat)
-	  (mutex-unlock! mtx)
+	  ;; (mutex-unlock! mtx)
 	  (dboard:tabdat-view-changed-set! tabdat #f)))))
   
 ;; doesn't work.
 ;;
 ;;(define (gotoescape tabdat escape)
@@ -3631,17 +3632,17 @@
 			       (graph-uly  (- (calc-y 0) canvas-margin))
 			       (sec-per-50pt (/ 50 timescale))
 			       )
 			  ;; (print "timeoffset: " timeoffset " timescale: " timescale " run-duration: " (seconds->hr-min-sec run-duration) " width: " width " sec-per-50pt: " sec-per-50pt)
 			  ;; (print "timescale: " timescale " timeoffset: " timeoffset " sizex: " sizex " originx: " originx)
-			  (mutex-lock! mtx)
+			  ;; (mutex-lock! mtx)
 			  (vg:add-comp-to-lib runslib run-full-name runcomp)
 			  ;; Have to keep moving the instantiated box as it is anchored at the lower left
 			  ;; this should have worked for x in next statement? (maptime run-start)
 			  ;; add 60 to make room for the graph
 			  (vg:instantiate drawing "runslib" run-full-name run-full-name 8 (- (calc-y curr-run-start-row) (+ 5 graph-height run-to-run-margin)))
-			  (mutex-unlock! mtx)
+			  ;; (mutex-unlock! mtx)
 			  ;; (set! run-start-row (+ max-row 2))
 			  ;; (dboard:tabdat-start-row-set! tabdat (+ new-run-start-row 1))
 			  ;; get tests in list sorted by event time ascending
 			  (let testsloop ((test-ids  (car hierdat))              ;; loop on tests (NOTE: not items!)
 					  (tests-tal (cdr hierdat))
@@ -3742,13 +3743,13 @@
 				 (outln     (vg:make-rect-obj -5 lly ulx uly 
 							      text: run-full-name
 							      line-color:  (vg:rgb->number  255 0 255 a: 128))))
 					;  (vg:components-get-extents d1 c1)))
 			    ;; this is the box around the run
-			    (mutex-lock! mtx)
+			    ;; (mutex-lock! mtx)
 			    (vg:add-obj-to-comp runcomp outln)
-			    (mutex-unlock! mtx)
+			    ;; (mutex-unlock! mtx)
 			    ;; this is where we have enough info to place the graph
 			    (dboard:graph commondat tabdat tab-num -5 (+ uly 10) ulx (+ uly graph-height 3) run-start run-end timescale maptime run-full-name canvas-margin)
 			    (dboard:tabdat-max-row-set! tabdat (+ (dboard:tabdat-max-row tabdat)(quotient (+ graph-height 40 3) row-height)))
 			    ;; (vg:instance-move drawing run-full-name 0 (dboard:tabdat-max-row tabdat))
 			    ))
@@ -3887,22 +3888,22 @@
 	;; tab-num: 2)
 	(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
+			       ;; (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))
+			     ;; (mutex-lock! (dboard:commondat-update-mutex commondat))
 			     (dboard:commondat-updating-set! commondat #f)
-			     (mutex-unlock! (dboard:commondat-update-mutex commondat)))
-				   ))
+			     ;; (mutex-unlock! (dboard:commondat-update-mutex commondat))
+			     )))
 			     1))))
       ;; (debug:print 0 *default-log-port* "Starting updaters")
       (let ((th1 (make-thread (lambda ()
 				(thread-sleep! 1)
 				(dboard:common-run-curr-updaters commondat 0) ;; force update of summary tab