@@ -41,10 +41,11 @@
 (include "common_records.scm")
 (include "db_records.scm")
 (include "run_records.scm")
 (include "task_records.scm")
 (include "megatest-fossil-hash.scm")
+(include "vg_records.scm")
 
 (define help (conc 
 	      "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
   version " megatest-version "
   license GPL, Copyright (C) Matt Welland 2012-2016
@@ -1137,11 +1138,12 @@
 						      (dboard:tabdat-last-data-update-set! tabdat now-time)
 						      (thread-start! (make-thread
 								      (lambda ()
 									(dboard:tabdat-running-layout-set! tabdat #t)
 									(dashboard:run-times-tab-layout-updater commondat tabdat tab-num)
-									(dboard:tabdat-running-layout-set! tabdat #f)))))
+									(dboard:tabdat-running-layout-set! tabdat #f))
+								      "run-times-tab-layout-updater")))
 						  ))))))
 				  "dashboard:run-times-tab-updater"))))
     (dboard:tabdat-drawing-set! tabdat drawing)
     (dboard:commondat-add-updater commondat run-times-tab-updater tab-num: tab-num)
     (iup:split
@@ -2350,28 +2352,30 @@
 
 ;; can a bar be placed in row "rownum" covering x1 to x2 without overlapping with existing 
 ;; bars? Use num-rows to check that a block will fit from rownum to (+ rownum num-rows)
 ;;
 (define (dashboard:row-collision rowhash rownum x1 x2 #!key (num-rows #f))
-  (let ((collision #f)
-	(lastrow   (if num-rows (+ rownum num-rows) rownum)))
+  (let ((lastrow   (if num-rows (+ rownum num-rows) rownum)))
     (let loop ((i      0)
 	       (rowdat (hash-table-ref/default rowhash rownum '())))
-      (for-each
-       (lambda (bar)
-	 (let ((bx1 (car bar))
-	       (bx2 (cdr bar)))
-	   (cond
-	    ;; newbar x1 inside bar
-	    ((dashboard:px-between x1 bx1 bx2)(set! collision #t))
-	    ((dashboard:px-between x2 bx1 bx2)(set! collision #t))
-	    ((and (<= x1 bx1)(>= x2 bx2))(set! collision #t)))))
-       rowdat)
-      (if (< i lastrow)
-	  (loop (+ i 1)
-		(hash-table-ref/default rowhash (+ rownum i) '()))))
-    collision))
+      (if (null? rowdat)
+	  #f
+	  (let rowloop ((bar (car rowdat))
+			(tal (cdr rowdat)))
+	    (let ((bx1 (car bar))
+		  (bx2 (cdr bar)))
+	      (cond
+	       ;; newbar x1 inside bar
+	       ((dashboard:px-between x1 bx1 bx2) #t)
+	       ((dashboard:px-between x2 bx1 bx2) #t)
+	       ((and (<= x1 bx1)(>= x2 bx2))      #t)
+	       (else (if (null? tal)
+			 (if (< i lastrow)
+			     (loop (+ i 1)
+				   (hash-table-ref/default rowhash (+ rownum i) '()))
+			     #f)
+			 (rowloop (car tal)(cdr tal)))))))))))
 
 (define (dashboard:add-bar rowhash rownum x1 x2 #!key (num-rows 0))
   (let loop ((i 0))
     (hash-table-set! rowhash 
 		     (+ i rownum)