@@ -212,11 +212,11 @@
 			(else (conc run-id ".db")))
 		      #f)))
     (handle-exceptions
      exn
      (begin
-       (debug:print 0 *default-log-port* "ERROR: Couldn't create path to " dbdir)
+       (debug:print-error 0 *default-log-port* "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 *default-log-port* "ERROR: I was asked to open " dbfile ", but file does not exist or is not readable.")
+			     (debug:print-error 0 *default-log-port* "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 *default-log-port* "ERROR: no main.db found at "  (areadb:dbfile-path areadat 0)))
+	(debug:print-error 0 *default-log-port* "no main.db found at "  (areadb:dbfile-path areadat 0)))
     areadat))
 
 ;; given an areadat and target/runname patt fill up runs data
 ;;
 ;; ?????/