From 41d3b13f7c971039a6c63ea7bf4e3a254e24a7b2 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 18 Dec 2008 21:17:33 -0600
Subject: [PATCH] f print-topic no longer prints an error

---
 basis/help/help-tests.factor | 1 +
 basis/help/help.factor       | 1 +
 2 files changed, 2 insertions(+)

diff --git a/basis/help/help-tests.factor b/basis/help/help-tests.factor
index e38f2fc15d..e091278359 100644
--- a/basis/help/help-tests.factor
+++ b/basis/help/help-tests.factor
@@ -3,3 +3,4 @@ USING: tools.test help kernel ;
 
 [ 3 throw ] must-fail
 [ ] [ :help ] unit-test
+[ ] [ f print-topic ] unit-test
\ No newline at end of file
diff --git a/basis/help/help.factor b/basis/help/help.factor
index cd80a73dad..272bdc1db3 100644
--- a/basis/help/help.factor
+++ b/basis/help/help.factor
@@ -112,6 +112,7 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
     ] with-style nl ;
 
 : print-topic ( topic -- )
+    >link
     last-element off dup $title
     article-content print-content nl ;