@@ -1367,12 +1367,12 @@
 (define (db:get-status-from-final-status-file run-dir)
   (let ((infile (conc run-dir "/.final-status")))
     ;; first verify we are able to write the output file
     (if (not (file-read-access? infile))
         (begin 
-	  (debug:print 0 *default-log-port* "ERROR: cannot read " infile)
-          (debug:print 0 *default-log-port* "ERROR: run-dir is " run-dir)
+	  (debug:print 2 *default-log-port* "ERROR: cannot read " infile)
+          (debug:print 2 *default-log-port* "ERROR: run-dir is " run-dir)
           #f
           )
         (with-input-from-file infile read-lines)
 	)))