@@ -810,11 +810,11 @@
 		  (hash-table-delete! (dboard:tabdat-allruns-by-id tabdat) run-id)
 		  (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
-		    (if (> elapsed-time 2)(print "WARNING: timed out in update-testdat " elapsed-time "s"))
+		    (if (> elapsed-time 2)(debug:print 0 *default-log-port*  "WARNING: timed out in update-testdat " elapsed-time "s"))
 		    (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)))))))
@@ -1723,11 +1723,11 @@
 	#:expand "HORIZONTAL"
 	#:value 1
 	#:action (lambda (obj tstate)
 		   (debug:catch-and-dump 
 		    (lambda ()
-		      (print "tstate: " tstate)
+		      ;; (print "tstate: " tstate)
 		      (if (eq? tstate 0)
 			  (dboard:tabdat-compact-layout-set! tabdat #f)
 			  (dboard:tabdat-compact-layout-set! tabdat #t))
 		      (dboard:tabdat-last-filter-str-set! tabdat "")
 		      )
@@ -2160,11 +2160,11 @@
 	   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn) ", exn=" exn)
 	   (debug:print 0 *default-log-port* "ERROR: failed call procedure " viewgen
 			", with; tab-num=" tab-num ", view-name=" view-name
 			", and views-cfgdat and megatest configdat as parameters. To debug try loading in the repl: megatest -repl")
 	   (set! success #f))
-	 (print "Adding tab " view-name " with proc " viewgen)
+	 (debug:print 0 *default-log-port* "Adding tab " view-name " with proc " viewgen)
 	 ;; (iup:child-add! tabs
 	 (set! result-child 
 	       ((eval (string->symbol viewgen)) commondat tabs tab-num view-name views-cfgdat *configdat*))))
     ;; and finally set the updater
     (if success
@@ -3504,11 +3504,11 @@
                                              (vg:add-obj-to-comp
                                               cmp 
                                               ;;(vg:make-rect-obj last-tval lly curr-tval last-yval ;; (- stval 2) lly (+ stval 2)(+ lly (* yval yscale))
                                               (vg:make-line-obj curr-tval last-yval curr-tval next-yval
                                                                 line-color: graph-color)))         
-                                           (print "ERROR: curr-tval is not > last-tval; curr-tval " curr-tval ", last-tval " last-tval))))
+                                           (debug:print 0 *default-log-port* "ERROR: curr-tval is not > last-tval; curr-tval " curr-tval ", last-tval " last-tval))))
                                  next)
                                #f ;; (vector tstart minval minval)
                                dat)
                               )))))) ;; for each data point in the series
 	      (hash-table-keys alldat)))))
@@ -3665,11 +3665,11 @@
 						(cons obj test-objs))))))
 				  ;; (print "event_time: " (db:test-get-event_time   testdat) " mapped event_time: " event-time)
 				  ;; (print "run-duration: "  (db:test-get-run_duration testdat) " mapped run_duration: " run-duration)
 				  (if (> item-num 50)
 				      (if (eq? 0 (modulo item-num 50))
-					  (print "processing " run-num " of " num-runs " runs " item-num " of " num-items " of test " test-name ", " test-num " of " num-tests " tests")))
+					  (debug:print 0 *default-log-port* "processing " run-num " of " num-runs " runs " item-num " of " num-items " of test " test-name ", " test-num " of " num-tests " tests")))
 				  ;; (print "test-name: " test-name " event-time: " event-time " run-duration: " run-duration)
 				  (let ((newdoneruns (cons rundat doneruns)))
 				    (if (null? tidstal)
 					(if iterated
 					    (let* ((xtents (vg:get-extents-for-objs drawing new-test-objs))
@@ -3690,11 +3690,11 @@
 					    (escapeloop #t) ;; (dboard:tabdat-layout-update-ok tabdat)
 					    )))))
 			      ;; If it is an iterated test put box around it now.
 			      (if (not (null? tests-tal))
 				  (if #f ;; (> (- (current-seconds) update-start-time) 5)
-				      (print "drawing runs taking too long")
+				      (debug:print 0 *default-log-port* "drawing runs taking too long")
 				      (if (dboard:tabdat-layout-update-ok tabdat)
 					  (testsloop  (car tests-tal)(cdr tests-tal)(+ test-num 1))
 					  (escapeloop #t) ;; (dboard:tabdat-layout-update-ok tabdat)
 					  )))))
 			  ;; placeholder box
@@ -3730,11 +3730,11 @@
 				    (dboard:rundat-data-changed-set! rundat #f) 
 				    (dboard:tabdat-not-done-runs-set! tabdat '())
 				    (dboard:tabdat-done-runs-set! tabdat allruns))
 				  (if #f ;; (> (- (current-seconds) update-start-time) 5)
 				      (begin
-					(print "drawing runs taking too long....  have " (length runtal) " remaining")
+					(debug:print 0 *default-log-port* "drawing runs taking too long....  have " (length runtal) " remaining")
 					;; (dboard:tabdat-done-runs-set! tabdat newdoneruns) ;; taking too long? stop here!
 					;; (time (vg:draw (dboard:tabdat-drawing tabdat) #t))
 					(dboard:tabdat-not-done-runs-set! tabdat runtal))
 				      (begin
 					(if (dboard:tabdat-layout-update-ok tabdat)
@@ -3788,11 +3788,11 @@
 ;;======================================================================
 ;; The heavy lifting starts here
 ;;======================================================================
 
 (define (main)
-  (print "Starting dashboard main")
+  ;; (print "Starting dashboard main")
 
   (let* ((mtdb-path (conc *toppath* "/.megatest/main.db"))
          (target (args:get-arg "-target"))
          (commondat       (dboard:commondat-make)))
     (if target
@@ -3802,11 +3802,11 @@
         )
     )
 
     (if (not (launch:setup))
         (begin
-          (print "Failed to find megatest.config, exiting") 
+          (debug:print 0 *default-log-port* "Failed to find megatest.config, exiting") 
           (exit 1)
         )
     )
 
     (if (not (common:on-homehost?))
@@ -3867,17 +3867,17 @@
 			     (mutex-lock! (dboard:commondat-update-mutex commondat))
 			     (dboard:commondat-updating-set! commondat #f)
 			     (mutex-unlock! (dboard:commondat-update-mutex commondat)))
 				   ))
 			     1))))
-      (print "Starting updaters")
+      ;; (debug:print 0 *default-log-port* "Starting updaters")
       (let ((th1 (make-thread (lambda ()
 				(thread-sleep! 1)
 				(dboard:common-run-curr-updaters commondat 0) ;; force update of summary tab 
 				) "update buttons once"))
 	    (th2 (make-thread iup:main-loop "Main loop")))
-        (print "Starting main loop")
+        ;; (print "Starting main loop")
 	(thread-start! th2)
 	(thread-join! th2)
       )
     )
   )
@@ -3905,11 +3905,11 @@
     (begin
       (for-each (lambda (var)
 		  ;; (display " ")(display var)
 		  (if (get-environment-variable var)
 		      (begin
-			(print "ERROR: environment variable " var " is set in this terminal, this will cause you problems. Exiting now.")
+			(debug:print 0 *default-log-port* "ERROR: environment variable " var " is set in this terminal, this will cause you problems. Exiting now.")
 			(exit 1))))
 		'("MT_RUN_AREA_HOME" "MT_MEGATEST" "MT_CMDINFO" "MT_TEST_RUN_DIR" "MT_LINKTREE" "MT_TESTSUITENAME"))
     )
 )
 
@@ -3916,11 +3916,11 @@
 (setenv "MT_RUN_AREA_HOME" (get-environment-variable "PWD"))
 
 (if (not (null? remargs))
   (if remargs
     (begin
-      (print "Unrecognised arguments: " (string-intersperse remargs " "))
+      (debug:print 0 *default-log-port* "Unrecognised arguments: " (string-intersperse remargs " "))
       (exit)
     )
     (begin
       (print help)
       (exit)