@@ -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'));