help.syntax: tweak algo

[factor.git] / basis / help / syntax / syntax.factor

diff --git a/basis/help/syntax/syntax.factor b/basis/help/syntax/syntax.factor
index 2cbc1261a925072b0267be95d87bdf44a634d184..af81760f71dd40ac2b62afd729b388dbd5667b29 100644 (file)
--- a/basis/help/syntax/syntax.factor
+++ b/basis/help/syntax/syntax.factor
@@ -40,7 +40,7 @@ DEFER: HELP{
             last [ string? not ] [ \ $nl = not ] bi and
         ] if-empty
     ] [
-        dup last " (" member? not
+        over last " (" member? not
     ] if
     over string? [ over ?first " .,;:)" member? not and ] when
     [ [ CHAR: \s suffix! ] dip ] when ;