Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -286,16 +286,17 @@
 	    (launch:handle-zombie-tests run-id))
 	
         (when do-sync
           ;; (tests:update-central-meta-info run-id test-id new-cpu-load new-disk-free (calc-minutes) #f #f)
 
-	  (let ((oup (open-output-file (conc work-area"/.run-logging-stats.csv" #:append))))
+	  (let ((oup (open-output-file (conc work-area"/.run-logging-stats.csv") :append))
+		(csv (conc run-id","test-id","new-cpu-load","new-disk-free","(calc-minutes))))
+	    (debug:print 0 *default-log-port* "Updating run log, csv="csv)
 	    (with-output-to-port oup
 	      (lambda ()
-		(print run-id","test-id","new-cpu-load","new-disk-free","(calc-minutes))))
-	    (close-output-port oup))	  
-	  )
+		(print csv)))
+	    (close-output-port oup)))
         
 	(if kill-job? 
 	    (begin
               (debug:print-info 0 *default-log-port* "proceeding to kill test: "kill-reason)
 	      (mutex-lock! m)