@@ -2297,13 +2297,16 @@
 		    #:tabchangepos-cb (lambda (obj curr prev)
 					(debug:catch-and-dump
 					 (lambda ()
 					   (let* ((tab-num (dboard:commondat-curr-tab-num commondat))
 						  (tabdat  (dboard:common-get-tabdat commondat tab-num: tab-num)))
-					     (dboard:tabdat-layout-update-ok-set! tabdat #f)
+					     (dboard:tabdat-layout-update-ok-set! tabdat #f))
+					   (dboard:commondat-curr-tab-num-set! commondat curr)
+					   (let* ((tab-num (dboard:commondat-curr-tab-num commondat))
+						  (tabdat  (dboard:common-get-tabdat commondat tab-num: tab-num)))
 					     (dboard:commondat-please-update-set! commondat #t)
-					     (dboard:commondat-curr-tab-num-set! commondat curr)))
+					     (dboard:tabdat-layout-update-ok-set! tabdat #t)))
 					 "tabchangepos"))
 		    (dashboard:summary commondat stats-dat tab-num: 0)
 		    runs-view
 		    (dashboard:one-run commondat onerun-dat tab-num: 2)
 		    ;; (dashboard:new-view db data new-view-dat tab-num: 3)
@@ -2669,17 +2672,18 @@
   
 ;; graph data 
 ;;  tsc=timescale, tfn=function; time->x
 ;;
 (define (dboard:graph commondat tabdat tabnum llx lly ulx uly tstart tend tsc tfn compname cmargin)
-  (let* ((dwg (dboard:tabdat-drawing tabdat))
-	 (lib (vg:get/create-lib dwg "runslib"))
-	 (cnv (dboard:tabdat-cnv tabdat))
-	 (dur (- tstart tend)) ;; time duration
-	 (cmp (vg:get-component dwg "runslib" compname))
-	 (cfg (configf:get-section *configdat* "graph"))
-	 (stdcolor (vg:rgb->number 120 130 140)))
+  (let* ((dwg      (dboard:tabdat-drawing tabdat))
+	 (lib      (vg:get/create-lib dwg "runslib"))
+	 (cnv      (dboard:tabdat-cnv tabdat))
+	 (dur      (- tstart tend)) ;; time duration
+	 (cmp      (vg:get-component dwg "runslib" compname))
+	 (cfg      (configf:get-section *configdat* "graph"))
+	 (stdcolor (vg:rgb->number 120 130 140))
+	 (delta-y  (- uly lly)))
     (vg:add-obj-to-comp
      cmp 
      (vg:make-rect-obj llx lly ulx uly))
     (for-each 
      (lambda (cf)
@@ -2690,22 +2694,23 @@
 		(let* ((dat     (hash-table-ref alldat fieldn ))
 		       (vals    (map (lambda (x)(vector-ref x 2)) dat)))
 		  (if (not (null? vals))
 		      (let* ((maxval   (apply max vals))
 			     (minval   (apply min vals))
-			     (yoff     (- lly minval))
+			     (yoff     (- minval lly)) ;;  minval))
 			     (deltaval (- maxval minval))
-			     (yscale   (/ (- uly lly)(if (eq? deltaval 0) 1 deltaval)))
-			     (yfunc    (lambda (y)(* (+ y yoff) yscale))))
-			;; (print (car cf) ": " (hash-table->alist
+			     (yscale   (/ delta-y (if (eq? deltaval 0) 1 deltaval)))
+			     (yfunc    (lambda (y)(+ lly (* yscale (- y minval)))))) ;; (lambda (y)(* (+ y yoff) yscale))))
+			(print (car cf) "; maxval: " maxval " minval: " minval " deltaval: " deltaval " yscale: " yscale)
 			(fold 
 			 (lambda (next prev)  ;; #(time ? val) #(time ? val)
 			   (if prev
-			       (let* ((last-tval  (tfn   (vector-ref prev 0)))
-				      (last-yval  (+ lly (* yscale (vector-ref prev 2))))
+			       (let* ((yval       (vector-ref prev 2))
+				      (last-tval  (tfn   (vector-ref prev 0)))
+				      (last-yval  (yfunc yval)) ;; (+ lly (* yscale (vector-ref prev 2))))
 				      (curr-tval  (tfn   (vector-ref next 0))))
-				 (if (> curr-tval last-tval)
+				 (if (>= curr-tval last-tval)
 				     (vg:add-obj-to-comp
 				      cmp 
 				      (vg:make-rect-obj last-tval lly curr-tval last-yval ;; (- stval 2) lly (+ stval 2)(+ lly (* yval yscale))
 							fill-color: stdcolor
 							line-color: stdcolor))