@@ -728,11 +728,11 @@
       (else (set! full-cmd " no valid command ")))
     (iup:attribute-set! cmd-tb "VALUE" full-cmd)))
 
 ;; Display the tests as rows of boxes on the test/task pane
 ;;
-(define (dashboard:draw-tests cnv xadj yadj tests-draw-state sorted-testnames)
+(define (dashboard:draw-tests cnv xadj yadj tests-draw-state sorted-testnames test-records)
   (canvas-clear! cnv)
   (canvas-font-set! cnv "Helvetica, -10")
   (let-values (((sizex sizey sizexmm sizeymm) (canvas-size cnv))
 	       ((originx originy)             (canvas-origin cnv)))
       ;; (print "originx: " originx " originy: " originy)
@@ -744,12 +744,12 @@
 	    (hash-table-set! tests-draw-state 'tests-info (make-hash-table))
 	    (hash-table-set! tests-draw-state 'selected-tests (make-hash-table))
 	    ;; set these 
 	    (hash-table-set! tests-draw-state 'test-browse-xoffset 20) ;; (- 0 (* (/ sizex 2) (* 8 xadj))))
 	    (hash-table-set! tests-draw-state 'test-browse-yoffset 20) ;; (- 0 (* (/ sizey 2) (* 8 (- 1 yadj)))))))
-	    (dcommon:initial-draw-tests cnv xadj yadj sizex sizey sizexmm sizeymm originx originy tests-draw-state sorted-testnames))
-	  (dcommon:redraw-tests cnv xadj yadj sizex sizey sizexmm sizeymm originx originy tests-draw-state sorted-testnames))
+	    (dcommon:initial-draw-tests cnv xadj yadj sizex sizey sizexmm sizeymm originx originy tests-draw-state sorted-testnames test-records))
+	  (dcommon:redraw-tests cnv xadj yadj sizex sizey sizexmm sizeymm originx originy tests-draw-state sorted-testnames test-records))
       ))
 
 ;;======================================================================
 ;; R U N   C O N T R O L S
 ;;======================================================================
@@ -924,11 +924,11 @@
                 (iup:canvas #:action (make-canvas-action
 				      (lambda (cnv xadj yadj)
 					(if (not updater)
 					    (set! updater (lambda (xadj yadj)
 							    ;; (print "cnv: " cnv " xadj: " xadj " yadj: " yadj)
-							    (dashboard:draw-tests cnv xadj yadj tests-draw-state sorted-testnames)
+							    (dashboard:draw-tests cnv xadj yadj tests-draw-state sorted-testnames test-records)
 							    (set! last-xadj xadj)
 							    (set! last-yadj yadj))))
 					(updater xadj yadj)
 					(set! the-cnv cnv)
 					))
@@ -939,11 +939,11 @@
 								      -0.01
 								      0.01))))
 					   ;; (print "step: " step " x: " x " y: " y " dir: \"" dir "\"")
 					   ;; (print "the-cnv: " the-cnv " obj: " obj " xadj: " xadj " yadj: " yadj " dir: " dir)
 					   (if the-cnv
-					       (dashboard:draw-tests the-cnv xadj yadj tests-draw-state sorted-testnames))
+					       (dashboard:draw-tests the-cnv xadj yadj tests-draw-state sorted-testnames test-records))
 					   (set! last-xadj xadj)
 					   (set! last-yadj yadj)
 					   ))
 			    ;; #:size "50x50"
 			    #:expand "YES"