@@ -50,11 +50,11 @@
     ;; (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 #f "header: " header " runslst: " runslst " have-more: " have-more)
+      ;; (debug:print 0 *default-log-port* "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 #f "More than " limit " runs, have " (length full-list) " runs so far.")
 	    (debug:print-info 0 #f "next-batch: " next-batch)
@@ -91,11 +91,11 @@
 		   (if last-time
 		       (< (current-seconds)(+ last-time 5))
 		       #f))))
     (if useres
 	(let ((result (vector-ref res 1)))
-	  (debug:print 4 #f "Using lazy value res: " result)
+	  (debug:print 4 *default-log-port* "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))))
 
@@ -120,11 +120,11 @@
 		  new-res)
 		(loop (car remt)
 		      (cdr remt)
 		      (if (member failed-test waitons)
 			  (begin
-			    (debug:print 0 #f "Discarding test " testn "(" test-dat ") due to " failed-test)
+			    (debug:print 0 *default-log-port* "Discarding test " testn "(" test-dat ") due to " failed-test)
 			    res)
 			  (cons testn res)))))))))
 
 ;;======================================================================
 ;;  T R I G G E R S
@@ -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 #f "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 *default-log-port* "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 #f "ERROR: No readable testconfig found for " test-name)
+			(debug:print 0 *default-log-port* "ERROR: No readable testconfig found for " test-name)
 			#f)
 		      (loop (car tal)(cdr tal))))))))))