Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -837,12 +837,13 @@
 		  (begin
 		    (when (> elapsed-time 2)   
                       (debug:print 0 *default-log-port* "NOTE: updates are taking a long time, " elapsed-time "s elapsed.")
                       (let* ((old-val (iup:attribute *tim* "TIME"))
                              (new-val (number->string (inexact->exact (floor (* 2  (string->number old-val)))))))
-                        (debug:print 0 *default-log-port* "NOTE: increasing poll interval from "old-val" to "new-val)
-                        (iup:attribute-set! *tim* "TIME" new-val))
+                        (if (< (string->number new-val) 5000)
+                            ((debug:print 0 *default-log-port* "NOTE: increasing poll interval from "old-val" to "new-val)
+                            (iup:attribute-set! *tim* "TIME" new-val))))
 
 
                       )
 		    (dboard:tabdat-allruns-set! tabdat new-res)
 		    maxtests)
@@ -860,11 +861,11 @@
 	 (parts        (string-split fulltestname "("))
 	 (basetestname (if (null? parts) "" (car parts))))
 					;(print "Toggling " basetestname " currently " (hash-table-ref/default *collapsed* basetestname #f))
     (if (hash-table-ref/default *collapsed* basetestname #f)
 	(begin
-					;(iup:attribute-set! btn "FGCOLOR" "0 0 0")
+					;(iup:attribute-set! btn "FGCOLOR" "0 0 0")s
 	  (hash-table-delete! *collapsed* basetestname))
 	(begin
 					;(iup:attribute-set! btn "FGCOLOR" "0 192 192")
 	  (hash-table-set! *collapsed* basetestname #t)))))