help.markup: require $quotation to specify stack effect.

diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor
index cbae4bf82a480a553f9906f78f7a4e76e4f76b6d..4ac9bfc3877726291dd6ab5e3000256607476b7c 100644 (file)
--- a/basis/help/markup/markup.factor
+++ b/basis/help/markup/markup.factor
@@ -372,8 +372,9 @@ M: f ($instance)
     f suffix $or ;
 
 : $quotation ( element -- )
-    { "a " { $link quotation } " with stack effect " } print-element
-    $snippet ;
+    check-first
+    { "a " { $link quotation } " with stack effect " }
+    print-element $snippet ;
 
 : values-row ( seq -- seq )
     unclip \ $snippet swap present 2array