help: for $default, make sure effect-in is a string.

diff --git a/basis/help/help.factor b/basis/help/help.factor
index 880701588de2b4e5079d5e49a9d2c798931db83c..f2104d3ff653dfc636b148be0d01e12b050254f6 100644 (file)
--- 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 ;