@@ -212,11 +212,11 @@
 			(else (conc run-id ".db")))
 		      #f)))
     (handle-exceptions
      exn
      (begin
-       (debug:print 0 #f "ERROR: Couldn't create path to " dbdir)
+       (debug:print 0 *default-log-port* "ERROR: Couldn't create path to " dbdir)
        (exit 1))
      (if (not (directory? dbdir))(create-directory dbdir #t)))
     (if fname
 	(conc dbdir "/" fname)
 	dbdir)))
@@ -240,11 +240,11 @@
 	db ;; merely return the already opened db
 	(let* ((dbfile (areadb:dbfile-path areadat run-id)) ;; not already opened, so open it
 	       (db     (if (file-exists? dbfile)
 			   (open-database dbfile)
 			   (begin
-			     (debug:print 0 #f "ERROR: I was asked to open " dbfile ", but file does not exist or is not readable.")
+			     (debug:print 0 *default-log-port* "ERROR: I was asked to open " dbfile ", but file does not exist or is not readable.")
 			     #f))))
 	  (case run-id
 	    ((-1)(areadat-monitordb-set! areadat db))
 	    ((0) (areadat-maindb-set!    areadat db))
 	    (else (rundat-db-set!        rundat  db)))
@@ -263,11 +263,11 @@
 				 (print row)
 				 (hash-table-set! runs id dat))))
 	       (sql maindb (conc "SELECT id,"
 				 (string-intersperse keys "||'/'||")
 				 ",runname,state,status,event_time FROM runs WHERE state != 'deleted';")))
-	(debug:print 0 #f "ERROR: no main.db found at "  (areadb:dbfile-path areadat 0)))
+	(debug:print 0 *default-log-port* "ERROR: no main.db found at "  (areadb:dbfile-path areadat 0)))
     areadat))
 
 ;; given an areadat and target/runname patt fill up runs data
 ;;
 ;; ?????/
@@ -485,11 +485,11 @@
 	 (used-rows (hash-table-values rows))
 	 (touched   (make-hash-table)) ;; (vector row col) ==> true, touched cell
 	 (view-type (dboard:get-view-type keys current-path))
 	 (changed   #f)
 	 (state-statuses  (list "PASS" "FAIL" "WARN" "CHECK" "SKIP" "RUNNING" "LAUNCHED")))
-    ;; (debug:print 0 #f "current-matrix=" current-matrix)
+    ;; (debug:print 0 *default-log-port* "current-matrix=" current-matrix)
     (case view-type
       ((areas) ;; find row for this area, if not found, create new entry
        (let* ((curr-rownum (hash-table-ref/default rows area-name #f))
 	      (next-rownum (+ (apply max (cons 0 used-rows)) 1))
 	      (rownum      (or curr-rownum next-rownum))
@@ -573,11 +573,11 @@
       (if (not (null? area-names))
 	  (let loop ((index 0)
 		     (hed   (car area-names))
 		     (tal   (cdr area-names)))
 	    ;; (hash-table-set! tabs index hed)
-	    (debug:print 0 #f "Adding area " hed " with index " index " to dashboard")
+	    (debug:print 0 *default-log-port* "Adding area " hed " with index " index " to dashboard")
 	    (iup:attribute-set! tabtop (conc "TABTITLE" index) hed)
 	    (if (not (null? tal))
 		(loop (+ index 1)(car tal)(cdr tal)))))
       tabtop))))