Index: commonmod.scm
==================================================================
--- commonmod.scm
+++ commonmod.scm
@@ -298,12 +298,15 @@
 		       (not (string-match "^\\s*" x)))
 		     val-list))
 	'())))
 
 (define (commonmod:get-cpu-load)
-  (let* ((load-info (with-input-from-file "/proc/loadavg" read-lines)))
-    (map string->number (string-split (car load-info)))))
+  (let* ((load-info (with-input-from-file "/proc/loadavg" read-lines))
+	 (res       (map string->number (string-split (car load-info)))))
+    (if (null? res)
+	#f ;; something is wrong
+	(car res))))
 
 (define *current-host-cores* #f)
 
 (define (get-current-host-cores)
   (or *current-host-cores*

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -371,12 +371,12 @@
     ;; extract logpro from testconfig and write them to files in test run dir
     (for-each
      (lambda (logprodat)
        (match logprodat
 	      ((name content)
-	       (debug:print-info 2 *default-log-port* "Creating logpro file "(current-directory)"/"name)
-	       (with-output-to-file name
+	       (debug:print-info 2 *default-log-port* "Creating logpro file "(current-directory)"/"name".logpro")
+	       (with-output-to-file (conc name".logpro")
 		 (lambda ()
 		   (print content)
 		   ;; (change-file-mode name (bitwise-ior perm/irwxg perm/irwxu))
 		   )))
 	      (else