From e0a8def090a8ec4bfd0f51c02072f0e910c2165c Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 2 Apr 2009 13:48:53 -0500
Subject: [PATCH] Fix generate-help to not open thousands of windows in UI

---
 basis/help/html/html.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor
index 66d864b2a0..d880af5b55 100644
--- a/basis/help/html/html.factor
+++ b/basis/help/html/html.factor
@@ -60,7 +60,7 @@ M: topic url-of topic>filename ;
 : help>html ( topic -- xml )
     [ article-title ]
     [ drop help-stylesheet ]
-    [ [ help ] with-html-writer ]
+    [ [ print-topic ] with-html-writer ]
     tri simple-page ;
           
 : generate-help-file ( topic -- )