From 880ec55d6ff99ca40f9750facd483606eae5b779 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 7 Apr 2016 07:25:53 -0700
Subject: [PATCH] help: for $default, make sure effect-in is a string.

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

diff --git a/basis/help/help.factor b/basis/help/help.factor
index 880701588d..f2104d3ff6 100644
--- a/basis/help/help.factor
+++ b/basis/help/help.factor
@@ -31,7 +31,7 @@ GENERIC: word-help* ( word -- content )
                 first2 dup effect? [ \ $quotation swap 2array ] when
             ] [
                 object
-            ] if
+            ] if [ effect>string ] dip
         ] { } map>assoc
     ] bi@ append members $values ;