@@ -877,19 +877,16 @@
 		  (hash-table-set!    (dboard:tabdat-allruns-by-id tabdat) run-id run-struct))
 	      (if (or (null? tal)
 		      (> elapsed-time 2)) ;; stop loading data after 5 seconds, on the next call more data *should* be loaded since get-tests-for-run uses last update
 		  (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)))))))
-                        (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))))
-
-
-                      )
+		      (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)))))))
+			(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)
 		  (if (> (dboard:rundat-run-data-offset run-struct) 0)
 		      (loop run tal new-res newmaxtests) ;; not done getting data for this run
 		      (loop (car tal)(cdr tal) new-res newmaxtests)))))))