Fix webapps.mason breakage

diff --git a/extra/mason/platform/platform.factor b/extra/mason/platform/platform.factor
index 92d4ace972c6da1b1868ba6cf57a9267ebf9619e..ad5e313d3080f3ffc112d864cce3a78d2f95d28a 100644 (file)
--- 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" ? ;