diff --git a/extra/mason/platform/platform.factor b/extra/mason/platform/platform.factor
index 59c525f5ea..d6be8654c5 100644
--- a/extra/mason/platform/platform.factor
+++ b/extra/mason/platform/platform.factor
@@ -1,11 +1,14 @@
 ! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel system accessors namespaces splitting sequences
-mason.config bootstrap.image ;
+mason.config bootstrap.image assocs ;
 IN: mason.platform
 
+: (platform) ( os cpu -- string )
+    { { CHAR: . CHAR: - } } substitute "-" glue ;
+
 : platform ( -- string )
-    target-os get "-" target-cpu get "." split "-" join 3append ;
+    target-os get target-cpu get (platform) ;
 
 : gnu-make ( -- string )
     target-os get { "freebsd" "openbsd" "netbsd" } member? "gmake" "make" ? ;
diff --git a/extra/webapps/mason/mason.factor b/extra/webapps/mason/mason.factor
index 63b042077e..ea7040ac6e 100644
--- a/extra/webapps/mason/mason.factor
+++ b/extra/webapps/mason/mason.factor
@@ -2,9 +2,15 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays combinators db db.tuples furnace.actions
 http.server.responses kernel mason.platform mason.notify.server
-math.order sequences sorting splitting xml.syntax xml.writer ;
+math.order sequences sorting splitting xml.syntax xml.writer
+io.pathnames io.encodings.utf8 io.files ;
 IN: webapps.mason
 
+: log-file ( -- path ) home "mason.log" append-path ;
+
+: recent-events ( -- xml )
+    log-file utf8 file-lines 10 short tail* "\n" join [XML <pre><-></pre> XML] ;
+
 : git-link ( id -- link )
     [ "http://github.com/slavapestov/factor/commit/" prepend ] keep
     [XML <a href=<->><-></a> XML] ;
@@ -55,20 +61,24 @@ IN: webapps.mason
     </table>
     XML] ;
 
-: machine-report ( builders -- xml )
-    [ machine-table ] map
+: machine-report ( -- xml )
+    builder new select-tuples
+    [ [ [ os>> ] [ cpu>> ] bi 2array ] compare ] sort
+    [ machine-table ] map ;
+
+: build-farm-report ( -- xml )
+    recent-events
+    machine-report
     [XML
-    <h1>Build farm status</h1>
-    <->
+    <html>
+    <head><title>Factor build farm</title></head>
+    <body><h1>Recent events</h1><-> <h1>Machine status</h1><-></body>
+    </html>
     XML] ;
 
-: <machine-report-action> ( -- action )
+: <build-farm-report-action> ( -- action )
     <action>
         [
-            mason-db [
-                builder new select-tuples
-                [ [ [ os>> ] [ cpu>> ] bi 2array ] compare ] sort
-                machine-report xml>string
-            ] with-db
+            mason-db [ build-farm-report xml>string ] with-db
             "text/html" <content>
         ] >>display ;
\ No newline at end of file
