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" ? ;