diff --git a/1991.fs b/1991.fs index 7851f7b..d9d1682 100644 --- a/1991.fs +++ b/1991.fs @@ -126,7 +126,7 @@ pubvar reqroute 2dup s" <" search drop \ and replace <...> with the requested route word nip \ ( - over over - 1+ 2r@ rot /string \ (Store the beginnings of user's <"match"> word.) + 2dup - 1+ 2r@ rot /string \ (Store the beginnings of user's <"match"> word.) 2dup s" >" search drop \ (Retrieve full <"match"> user word,) nip - s" =" s+ 2r> 2r> 2swap 2>r