From 67c57417d7cc201c384008af60fd8a695d546943 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Thu, 1 Sep 2011 01:15:56 -0700
Subject: [PATCH] Fix webapps.mason breakage

---
 extra/mason/platform/platform.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/extra/mason/platform/platform.factor b/extra/mason/platform/platform.factor
index 92d4ace972..ad5e313d30 100644
--- a/extra/mason/platform/platform.factor
+++ b/extra/mason/platform/platform.factor
@@ -5,11 +5,10 @@ mason.config bootstrap.image assocs ;
 IN: mason.platform
 
 : (platform) ( os cpu -- string )
-    [ name>> ] bi@
     { { CHAR: . CHAR: - } } substitute "-" glue ;
 
 : platform ( -- string )
-    target-os get target-cpu get (platform) ;
+    target-os get name>> target-cpu get name>> (platform) ;
 
 : gnu-make ( -- string )
     target-os get { freebsd openbsd netbsd } member? "gmake" "make" ? ;