--- gforth/look.fs	1996/05/13 16:37:01	1.4
+++ gforth/look.fs	1996/08/21 14:58:42	1.5
@@ -42,7 +42,7 @@ decimal
 : (look)  ( xt startlfa -- lfa flag )
         false swap
         BEGIN @ dup
-        WHILE dup name>
+        WHILE dup name>int
               3 pick = IF nip dup THEN
         REPEAT
         drop nip