help.html: fix load

[factor.git] / basis / help / html / html.factor

diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor
index 2aeb70a85a95c894db2fa72a55fd9d3969997210..caf2c6301f8eb10c63348b8cc09acd3ce06de989 100644 (file)
--- a/basis/help/html/html.factor
+++ b/basis/help/html/html.factor
@@ -140,7 +140,7 @@ M: pathname url-of
         " white-space: pre-wrap; line-height: 125%;" append
     ] re-replace-with
 
-    { "font-family: monospace;" "background-color:" } [ subsequence? ] with all?[
+    dup { "font-family: monospace;" "background-color:" } [ subsequence? ] with all? [
         " margin: 10px 0px;" append
     ] when