--- gforth/look.fs	1996/08/26 10:07:20	1.6
+++ gforth/look.fs	1997/03/27 13:31:02	1.7
@@ -42,7 +42,7 @@ decimal
         dup 0<> ;
 
 : look ( cfa -- lfa flag )
-        dup forthstart <
+        dup dictionary-end forthstart within
 	IF
 	    PrimStart (look)
 	ELSE