@@ -212,11 +212,11 @@
 			(else (conc run-id ".db")))
 		      #f)))
     (handle-exceptions
      exn
      (begin
-       (debug:print 0 "ERROR: Couldn't create path to " dbdir)
+       (debug:print 0 #f "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 "ERROR: I was asked to open " dbfile ", but file does not exist or is not readable.")
+			     (debug:print 0 #f "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 "ERROR: no main.db found at "  (areadb:dbfile-path areadat 0)))
+	(debug:print 0 #f "ERROR: no main.db found at "  (areadb:dbfile-path areadat 0)))
     areadat))
 
 ;; given an areadat and target/runname patt fill up runs data
 ;;
 ;; ?????/
@@ -323,15 +323,15 @@
 	    (current-matrix (if (null? tab-ids) #f (tab-matrix current-tab)))
 	    (seen-nodes     (make-hash-table))
 	    (path-changed   (if current-tab
 				(equal? current-path (tab-view-path current-tab))
 				#t)))
-       ;; (debug:print-info 0 "Current path: " current-path)
+       ;; (debug:print-info 0 #f "Current path: " current-path)
        ;; now for each area in the window gather the data
        (if path-changed
 	   (begin
-	     (debug:print-info 0 "clearing matrix - path changed")
+	     (debug:print-info 0 #f "clearing matrix - path changed")
 	     (dboard:clear-matrix current-tab)))
        (for-each
 	(lambda (area-name)
 	  ;; (print "Processing for area-name " area-name)
 	  (let* ((area-dat  (hash-table-ref areas area-name))
@@ -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 "current-matrix=" current-matrix)
+    ;; (debug:print 0 #f "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))
@@ -503,11 +503,11 @@
 		 (if (not (equal? (iup:attribute current-matrix (conc "0:" count)) hed))
 		     (iup:attribute-set! current-matrix (conc "0:" count) hed))
 		 (iup:attribute-set! current-matrix (conc rownum ":" count) "0")
 		 (if (not (null? tal))
 		     (loop (car tal)(cdr tal)(+ count 1))))
-	       (debug:print-info 0 "view-type=" view-type ", rownum=" rownum ", curr-rownum=" curr-rownum ", next-rownum=" next-rownum ", coord=" coord ", area-name=" area-name)
+	       (debug:print-info 0 #f "view-type=" view-type ", rownum=" rownum ", curr-rownum=" curr-rownum ", next-rownum=" next-rownum ", coord=" coord ", area-name=" area-name)
 	       (iup:attribute-set! current-matrix coord area-name)
 	       (set! changed #t))))))
     (if changed (iup:attribute-set! current-matrix "REDRAW" "ALL"))))
 	     
 
@@ -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 "Adding area " hed " with index " index " to dashboard")
+	    (debug:print 0 #f "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))))
 
@@ -730,21 +730,21 @@
 				      toppath: (or (get-environment-variable "MT_RUN_AREA_HOME")(current-directory))))
 	  (curr-mtcfg    (if (and curr-mtcfgdat (not (null? curr-mtcfgdat)))(cadr curr-mtcfgdat) #f))
 	  (curr-mtpath   (if curr-mtcfg (car curr-mtcfgdat) #f)))
      (if curr-mtpath
 	 (begin
-	   (debug:print-info 0 "Creating config file " fname)
+	   (debug:print-info 0 #f "Creating config file " fname)
 	   (if (not (file-exists? dirname))
 	       (create-directory dirname #t))
 	   (with-output-to-file fname
 	     (lambda ()
 	       (let ((aname (pathname-strip-directory curr-mtpath)))
 		 (print "[" aname "]")
 		 (print  "path " curr-mtpath))))
 	   #t)
 	 (begin
-	   (debug:print-info 0 "Need to create a config but no megatest.config found: " curr-mtcfgdat)
+	   (debug:print-info 0 #f "Need to create a config but no megatest.config found: " curr-mtcfgdat)
 	   #f))))
 ;; )
 
 (define (dboard:read-mtconf apath)
   (let* ((mtconffile  (conc apath "/megatest.config")))