diff --git a/extra/benchmark/benchmark.factor b/extra/benchmark/benchmark.factor
index 3a19d0a6e1..01e7d2c78e 100755
--- a/extra/benchmark/benchmark.factor
+++ b/extra/benchmark/benchmark.factor
@@ -6,13 +6,11 @@ continuations debugger ;
 IN: benchmark
 
 : run-benchmark ( vocab -- result )
-    "=== Benchmark " write dup vocab-name print flush
-    [ dup require [ run ] benchmark ] [ error. drop f f ] recover 2array
-    dup . ;
+  [ [ run ] benchmark ] [ error. drop f f ] recover 2array ;
 
 : run-benchmarks ( -- assoc )
-    "benchmark"
-        all-child-vocabs values concat [ dup run-benchmark ] { } map>assoc ;
+  "benchmark" all-child-vocabs values concat [ vocab-name ] map
+  [ dup run-benchmark ] { } map>assoc ;
 
 : benchmarks. ( assoc -- )
     standard-table-style [