@@ -198,11 +198,11 @@
 		 (runs        (db:get-rows   allruns))
 		 (result      '())
 		 (maxtests    0)
 		 (states      (hash-table-keys *state-ignore-hash*))
 		 (statuses    (hash-table-keys *status-ignore-hash*)))
-	    (debug:print 2 "update-rundat, got " (length runs) " runs")
+	    (debug:print 6 "update-rundat, got " (length runs) " runs")
 	    (if (> (+ *last-update* 300) (current-seconds)) ;; every five minutes
 		(begin
 		  (set! *last-update* (current-seconds))
 		  (set! *tot-run-count* (db:get-num-runs *db* runnamepatt))))
 	    (for-each (lambda (run)
@@ -214,11 +214,11 @@
 			  ;(if (not (null? tests))
 			      (set! result (cons (vector run tests key-vals) result)))); )
 		      runs)
 	    (set! *header*  header)
 	    (set! *allruns* result)
-	    (debug:print 2 "*allruns* has " (length *allruns*) " runs")
+	    (debug:print 6 "*allruns* has " (length *allruns*) " runs")
 	    ;; (set! *tot-run-count* (+ 1 (length *allruns*)))
 	    maxtests))
 	*num-tests*))) ;; FIXME, naughty coding eh?
 
 (define *collapsed* (make-hash-table))
@@ -491,11 +491,11 @@
 					       (let ((val (inexact->exact (round (/ (string->number (iup:attribute obj "VALUE")) 10))))
 						     (oldmax   (string->number (iup:attribute obj "MAX")))
 						     (maxruns  *tot-run-count*))
 						 (set! *start-run-offset* val)
 						 (set! *last-db-update-time* 0)
-						 (debug:print 1 "*start-run-offset* " *start-run-offset* " maxruns: " maxruns ", val: " val " oldmax: " oldmax)
+						 (debug:print 6 "*start-run-offset* " *start-run-offset* " maxruns: " maxruns ", val: " val " oldmax: " oldmax)
 						 (iup:attribute-set! obj "MAX" (* maxruns 10))))
 			   #:expand "YES"
 			   #:max (* 10 (length *allruns*)))))
 	   ;(iup:button "inc rows" #:action (lambda (obj)(set! *num-tests* (+ *num-tests* 1))))
 	   ;(iup:button "dec rows" #:action (lambda (obj)(set! *num-tests* (if (> *num-tests* 0)(- *num-tests* 1) 0))))
@@ -526,11 +526,11 @@
 									     (let ((val (string->number (iup:attribute obj "VALUE")))
 										   (oldmax  (string->number (iup:attribute obj "MAX")))
 										   (newmax  (* 10 (length *alltestnamelst*))))
 									       (set! *please-update-buttons* #t)
 									       (set! *start-test-offset* (inexact->exact (round (/ val 10))))
-									       (debug:print 1 "*start-test-offset* " *start-test-offset* " val: " val " newmax: " newmax " oldmax: " oldmax)
+									       (debug:print 6 "*start-test-offset* " *start-test-offset* " val: " val " newmax: " newmax " oldmax: " oldmax)
 									       (if (< val 10)
 										   (iup:attribute-set! obj "MAX" newmax))
 									       ))
 							 #:expand "YES" 
 							 #:orientation "VERTICAL")