diff --git a/extra/benchmark/benchmark.factor b/extra/benchmark/benchmark.factor
index bd13455357..231c6edf50 100755
--- a/extra/benchmark/benchmark.factor
+++ b/extra/benchmark/benchmark.factor
@@ -21,7 +21,7 @@ IN: benchmark
         ] with-row
         [
             [
-                swap [ ($vocab-link) ] with-cell
+                swap [ dup ($vocab-link) ] with-cell
                 first2 pprint-cell pprint-cell
             ] with-row
         ] assoc-each
diff --git a/extra/help/markup/markup.factor b/extra/help/markup/markup.factor
index a866293bbe..32e29db7db 100755
--- a/extra/help/markup/markup.factor
+++ b/extra/help/markup/markup.factor
@@ -173,7 +173,7 @@ M: f print-element drop ;
 
 : $vocabulary ( element -- )
     first word-vocabulary [
-        "Vocabulary" $heading nl ($vocab-link)
+        "Vocabulary" $heading nl dup ($vocab-link)
     ] when* ;
 
 : textual-list ( seq quot -- )