@@ -707,12 +707,12 @@
 				       " -archive save-remove -testpatt " (conc testname "/" (if (equal? item-path "")
 												 "%" 
 												 item-path))
 				       )))))
 	  (cond
-	   ((not testdat)(begin (print "ERROR: bad test info for " test-id)(exit 1)))
-	   ((not rundat)(begin (print "ERROR: found test info but there is a problem with the run info for " run-id)(exit 1)))
+	   ((not testdat)(begin (debug:print 0 *default-log-port* "ERROR: bad test info for " test-id)(exit 1)))
+	   ((not rundat)(begin (debug:print 0 *default-log-port* "ERROR: found test info but there is a problem with the run info for " run-id)(exit 1)))
 	   (else
 	    ;;  (test-set-status! db run-id test-name state status itemdat)
 	    (set! self ; 
 		  (iup:dialog #:close_cb (lambda (a)(exit)) ; #:expand "YES"
 			      #:title testfullname
@@ -757,11 +757,11 @@
 									 (let* ((mtrx-rc  (conc lin ":" 6))
 										(fname    (iup:attribute obj mtrx-rc))
                                                                                 (stepname (iup:attribute obj (conc lin ":" 1)))                                                                                            (comment  (iup:attribute obj (conc lin ":" 7))))
                                                                            (case col
                                                                              
-                                                                             ((7) (print "Comment from step "stepname": "comment))
+                                                                             ((7) (debug:print 0 *default-log-port* "Comment from step "stepname": "comment))
                                                                              ((8) (ezsteps:spawn-run-from testdat stepname #t))
                                                                              ((9) (ezsteps:spawn-run-from testdat stepname #f))
                                                                              (else (view-a-log fname))))))))
 					 ;; (let loop ((count 0))
 					 ;;   (iup:attribute-set! steps-matrix "FITTOTEXT" (conc "L" count))