@@ -2724,15 +2724,15 @@
 	      (let*-values (((sizex sizey sizexmm sizeymm) (canvas-size cnv))
 			    ((originx originy)             (canvas-origin cnv))
 			    ((calc-y)                      (lambda (rownum)
 							     (- (/ sizey 2)
 								(* rownum row-height))))
-			    ((fixed-originx)         0)   ;; (if (dboard:tabdat-originx tabdat)
-							;;   (dboard:tabdat-originx tabdat)
-							;;   (begin
-							;; 	 (dboard:tabdat-originx-set! tabdat originx)
-							;; 	 originx)))
+			    ((fixed-originx)               (if (dboard:tabdat-originx tabdat)
+							       (dboard:tabdat-originx tabdat)
+							       (begin
+							 	 (dboard:tabdat-originx-set! tabdat originx)
+							 	 originx)))
 			    ((fixed-originy)               (if (dboard:tabdat-originy tabdat)
 							       (dboard:tabdat-originy tabdat)
 							       (begin
 								 (dboard:tabdat-originy-set! tabdat originy)
 								 originy))))
@@ -2765,11 +2765,11 @@
 			       (runcomp   (vg:comp-new));; new component for this run
 			       (rows-used (make-hash-table)) ;; keep track of what parts of the rows are used here row1 = (obj1 obj2 ...)
 			       ;; (row-height 4)
 			       (run-start  (dboard:min-max < (map db:test-get-event_time testsdat)))
 			       (run-end    (dboard:min-max > (map (lambda (t)(+ (db:test-get-event_time t)(db:test-get-run_duration t))) testsdat)))
-			       (timeoffset (- (+ fixed-originx canvas-margin) run-start))
+			       (timeoffset (- run-start)) ;; (+ fixed-originx canvas-margin) run-start))
 			       (run-duration (- run-end run-start))
 			       (timescale  (/ (- sizex (* 2 canvas-margin))
 					      (if (> run-duration 0)
 						  run-duration
 						  (current-seconds)))) ;; a least lously guess
@@ -2786,11 +2786,11 @@
 			  (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 fixed-originx (- (calc-y curr-run-start-row) (+ graph-height run-to-run-margin)))
+			  (vg:instantiate drawing "runslib" run-full-name run-full-name 0 (- (calc-y curr-run-start-row) (+ graph-height run-to-run-margin)))
 			  (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!)
@@ -2852,14 +2852,14 @@
 				  ;; (print "test-name: " test-name " event-time: " event-time " run-duration: " run-duration)
 				  (let ((newdoneruns (cons rundat doneruns)))
 				    (if (null? tidstal)
 					(if iterated
 					    (let* ((xtents (vg:get-extents-for-objs drawing new-test-objs))
-						   (llx (- (car xtents)   5))
+						   (llx (- (car xtents)  10))
 						   (lly (- (cadr xtents) 10))
 						   (ulx (+ 5 (caddr xtents)))
-						   (uly (+ 0 (cadddr xtents))))
+						   (uly (+ 10 (cadddr xtents))))
 					      ;; (dashboard:add-bar rowhash 0 llx ulx num-rows:  num-items)
 					      ;; This is the box around the tests of an iterated test
 					      (vg:add-obj-to-comp runcomp (vg:make-rect-obj llx lly ulx uly
 											    text:  (db:test-get-testname (hash-table-ref tests-ht (car test-ids)))
 											    line-color:  (vg:rgb->number  0 0 255 a: 128)
@@ -2883,21 +2883,21 @@
 				 (new-xtnts (apply vg:grow-rect 5 5 extents))
 				 (llx       (list-ref new-xtnts 0))
 				 (lly       (list-ref new-xtnts 1))
 				 (ulx       (list-ref new-xtnts 2))
 				 (uly       (list-ref new-xtnts 3))
-				 (outln     (vg:make-rect-obj llx lly ulx uly 
+				 (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)
 			    (vg:add-obj-to-comp runcomp outln)
 			    (mutex-unlock! mtx)
 			    ;; this is where we have enough info to place the graph
-			    (dboard:graph commondat tabdat tab-num llx uly ulx (+ uly graph-height) 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) row-height)))
+			    (dboard:graph commondat tabdat tab-num -5 (+ uly 3) 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))
 			    ))
 			;; end of the run handling loop 
 			(if (gotoescape tabdat escape) ;; (dboard:tabdat-layout-update-ok tabdat)
 			    (let ((newdoneruns (cons rundat doneruns)))