--- a/s/BenchmarkReportJSON.st	Sun Jul 14 00:16:41 2013 +0100
+++ b/s/BenchmarkReportJSON.st	Sun Jul 14 00:42:26 2013 +0100
@@ -53,7 +53,7 @@
         json writeElementSeparator.
         json writeKey: 'runtime'    value: BenchmarkPlatform current configurationStringRuntime.
         json writeElementSeparator.
-        json writeKey: 'os'         value: BenchmarkPlatform current configurationStringOS
+        json writeKey: 'os'         value: BenchmarkPlatform current configurationStringOS.
         json writeElementSeparator.
         json writeKey: 'mechineid'   value: self machineId.
     ].

--- a/s/BenchmarkRunner.st	Sun Jul 14 00:16:41 2013 +0100
+++ b/s/BenchmarkRunner.st	Sun Jul 14 00:42:26 2013 +0100
@@ -184,10 +184,14 @@
     "Write report"
     file notNil ifTrue:[
         file asFilename writingFileDo:[:s|
-            report write: result on: s 
+            report
+                machineId: machineid;
+                write: result on: s 
         ]
     ] ifFalse:[
-        report write: result on: BenchmarkPlatform current stdout
+        report
+            machineId: machineid;
+            write: result on: BenchmarkPlatform current stdout
     ].
 
     self exit: 0.