--- gforth/look.fs	1996/08/26 10:07:20	1.6
+++ gforth/look.fs	1997/07/06 14:29:33	1.8
@@ -28,10 +28,10 @@
 
 decimal
 
-: PrimStart ['] true >name ;
-
 \ look                                                  17may93jaw
 
+\ rename to discover!!!
+
 : (look)  ( xt startlfa -- lfa flag )
         false swap
         BEGIN @ dup
@@ -41,11 +41,26 @@ decimal
         drop nip
         dup 0<> ;
 
+
+\ !!! nicht optimal!
+[IFUNDEF] look
+[IFUNDEF] dictionary-end  has-rom [ELSE] false [THEN]
+[IF]
+
+: look ( cfa -- lfa flag )
+  forth-wordlist @ (look) ;
+
+[ELSE]
+
+: PrimStart ['] true >name ;
+
 : look ( cfa -- lfa flag )
-        dup forthstart <
+        dup dictionary-end forthstart within
 	IF
 	    PrimStart (look)
 	ELSE
 	    >name dup ??? <>
 	THEN ;
 
+[THEN]
+[THEN]