--- gforth/look.fs	1994/02/11 16:30:46	1.1
+++ gforth/look.fs	1994/07/21 14:41:47	1.2
@@ -24,14 +24,14 @@ decimal
 : (look)  ( xt startlfa -- lfa flag )
         false swap
         BEGIN @ dup
-        WHILE dup cell+ name>
+        WHILE dup name>
               3 pick = IF nip dup THEN
         REPEAT
         drop nip
         dup 0<> ;
 
 : look ( cfa -- lfa flag )
-        dup forthstart u<
+        dup forthstart <
         IF PrimStart (look)
         ELSE >name true THEN ;