@@ -2569,11 +2569,11 @@
   (handle-exceptions
    exn
    (begin
      (debug:print 0 *default-log-port* "WARNING: error in accessing databases in get-youngest-run-db-mod-time: " ((condition-property-accessor 'exn 'message) exn))
      (current-seconds)) ;; something went wrong - just print an error and return current-seconds
-   (apply max (map (lambda (filen)
+   (common:max (map (lambda (filen)
 		     (file-modification-time filen))
 		   (glob (conc (dboard:tabdat-dbdir tabdat) "/*.db"))))))
 
 (define (dashboard:monitor-changed? commondat tabdat)
   (let* ((run-update-time (current-seconds))
@@ -2646,20 +2646,10 @@
 		     (cons (cons x1 x2) 
 			   (hash-table-ref/default rowhash (+ i rownum) '())))
     (if (< i num-rows)
 	(loop (+ i 1)))))
 
-;; get min or max, use > for max and < for min, this works around the limits on apply
-;;
-(define (dboard:min-max comp lst)
-  (if (null? lst)
-      #f ;; better than an exception for my needs
-      (fold (lambda (a b)
-	      (if (comp a b) a b))
-	    (car lst)
-	    lst)))
-
 ;; sort a list of test-ids by the event _time using a hash table of id => testdat
 ;;
 (define-inline (dboard:sort-testsdat-by-event-time test-ids tests-ht)
   (sort test-ids
 	(lambda (a b)
@@ -3080,12 +3070,12 @@
 			       (all-tids  (hash-table-keys   tests-ht)) ;; (apply append hierdat)) ;; was testsdat
 			       (testsdat  (hash-table-values tests-ht))
 			       (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    (let ((re (dboard:min-max > (map (lambda (t)(+ (db:test-get-event_time t)(db:test-get-run_duration t))) testsdat))))
+			       (run-start  (common:min-max < (map db:test-get-event_time testsdat)))
+			       (run-end    (let ((re (common:min-max > (map (lambda (t)(+ (db:test-get-event_time t)(db:test-get-run_duration t))) testsdat))))
 					     (max re (+ 1 run-start)))) ;; use run-start+1 if run-start == run-end so delta is not zero
 			       (timeoffset (- run-start)) ;; (+ fixed-originx canvas-margin) run-start))
 			       (run-duration (- run-end run-start))
 			       (timescale  (/ (- sizex (* 2 canvas-margin))
 					      (if (> run-duration 0)