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 ;