@@ -50,16 +50,16 @@
     ;; (print "runsdat: " runsdat)
     (let* ((header    (vector-ref runsdat 0))
 	   (runslst   (vector-ref runsdat 1))
 	   (full-list (append res runslst))
 	   (have-more (eq? (length runslst) limit)))
-      ;; (debug:print 0 "header: " header " runslst: " runslst " have-more: " have-more)
+      ;; (debug:print 0 #f "header: " header " runslst: " runslst " have-more: " have-more)
       (if have-more 
 	  (let ((new-offset (+ offset limit))
 		(next-batch (rmt:get-runs-by-patt keys runnamepatt targpatt offset limit #f)))
-	    (debug:print-info 4 "More than " limit " runs, have " (length full-list) " runs so far.")
-	    (debug:print-info 0 "next-batch: " next-batch)
+	    (debug:print-info 4 #f "More than " limit " runs, have " (length full-list) " runs so far.")
+	    (debug:print-info 0 #f "next-batch: " next-batch)
 	    (loop next-batch
 		  full-list
 		  new-offset
 		  limit))
 	 (vector header full-list)))))
@@ -75,11 +75,11 @@
 	     (limit    500))
     (let* ((full-list (append res testsdat))
 	   (have-more (eq? (length testsdat) limit)))
       (if have-more 
 	  (let ((new-offset (+ offset limit)))
-	    (debug:print-info 4 "More than " limit " tests, have " (length full-list) " tests so far.")
+	    (debug:print-info 4 #f "More than " limit " tests, have " (length full-list) " tests so far.")
 	    (loop (rmt:get-tests-for-run run-id testpatt states status new-offset limit not-in sort-by sort-order qryvals last-update 'normal)
 		  full-list
 		  new-offset
 		  limit))
 	  full-list))))
@@ -91,11 +91,11 @@
 		   (if last-time
 		       (< (current-seconds)(+ last-time 5))
 		       #f))))
     (if useres
 	(let ((result (vector-ref res 1)))
-	  (debug:print 4 "Using lazy value res: " result)
+	  (debug:print 4 #f "Using lazy value res: " result)
 	  result)
 	(let ((newres (rmt:get-prereqs-not-met run-id waitons ref-item-path mode: mode itemmaps: itemmaps)))
 	  (hash-table-set! *pre-reqs-met-cache* key (vector (current-seconds) newres))
 	  newres))))
 
@@ -105,11 +105,11 @@
 
 (define (mt:discard-blocked-tests run-id failed-test tests test-records)
   (if (null? tests)
       tests
       (begin
-	(debug:print-info 1 "Discarding tests from " tests " that are waiting on " failed-test)
+	(debug:print-info 1 #f "Discarding tests from " tests " that are waiting on " failed-test)
 	(let loop ((testn (car tests))
 		   (remt  (cdr tests))
 		   (res   '()))
 	  (let* ((test-dat (hash-table-ref/default test-records testn (vector #f #f '())))
 		 (waitons  (vector-ref test-dat 2)))
@@ -120,11 +120,11 @@
 		  new-res)
 		(loop (car remt)
 		      (cdr remt)
 		      (if (member failed-test waitons)
 			  (begin
-			    (debug:print 0 "Discarding test " testn "(" test-dat ") due to " failed-test)
+			    (debug:print 0 #f "Discarding test " testn "(" test-dat ") due to " failed-test)
 			    res)
 			  (cons testn res)))))))))
 
 ;;======================================================================
 ;;  T R I G G E R S
@@ -156,11 +156,11 @@
 			       (if cmd
 				   ;; Putting the commandline into ( )'s means no control over the shell. 
 				   ;; stdout and stderr will be caught in the NBFAKE or mt_launch.log files
 				   ;; or equivalent. No need to do this. Just run it?
 				   (let ((fullcmd (conc cmd " " test-id " " test-rundir " " trigger "&")))
-				     (debug:print-info 0 "TRIGGERED on " trigger ", running command " fullcmd)
+				     (debug:print-info 0 #f "TRIGGERED on " trigger ", running command " fullcmd)
 				     (process-run fullcmd)))))
 			   (list
 			    (conc state "/" status)
 			    (conc state "/")
 			    (conc "/" status)))
@@ -173,11 +173,11 @@
 
 ;; speed up for common cases with a little logic
 (define (mt:test-set-state-status-by-id run-id test-id newstate newstatus newcomment)
   (if (not (and run-id test-id))
       (begin
-	(debug:print 0 "ERROR: bad data handed to mt:test-set-state-status-by-id, run-id=" run-id ", test-id=" test-id ", newstate=" newstate)
+	(debug:print 0 #f "ERROR: bad data handed to mt:test-set-state-status-by-id, run-id=" run-id ", test-id=" test-id ", newstate=" newstate)
 	(print-call-chain (current-error-port))
 	#f)
       (begin
 	(cond
 	 ((and newstate newstatus newcomment)
@@ -215,9 +215,9 @@
 			  (setenv "MT_LINKTREE" old-link-tree)
 			  (unsetenv "MT_LINKTREE"))
 		      newtcfg))
 		  (if (null? tal)
 		      (begin
-			(debug:print 0 "ERROR: No readable testconfig found for " test-name)
+			(debug:print 0 #f "ERROR: No readable testconfig found for " test-name)
 			#f)
 		      (loop (car tal)(cdr tal))))))))))