--- gforth/locate.fs	2001/10/07 21:51:09	1.1
+++ gforth/locate.fs	2002/09/14 08:20:19	1.2
@@ -36,7 +36,7 @@ Variable sys-buf
 : locate ( "name" -- )  s" " last-file $!  bl sword
     s" TAGS" r/o open-file throw >r
     BEGIN  r@ tag-line  WHILE
-        s" " line-buf $@ compare 0=
+        s" " line-buf $@ str=
         IF    r@ get-file
         ELSE  2dup check-word
             IF  print-location 2drop  r> close-file throw  EXIT  THEN