Index: rmtmod.scm ================================================================== --- rmtmod.scm +++ rmtmod.scm @@ -209,12 +209,14 @@ (begin (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) - ))) + (let ((res (with-input-from-file infile read-lines))) + (if (null? res) + #f + (string-split (car res))))))) ;; select end_time-now from ;; (select testname,item_path,event_time+run_duration as ;; end_time,strftime('%s','now') as now from tests where state in ;; ('RUNNING','REMOTEHOSTSTART','LAUNCHED'));