--- gforth/look.fs	1997/03/27 13:31:02	1.7
+++ 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,6 +41,19 @@ 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 dictionary-end forthstart within
 	IF
@@ -49,3 +62,5 @@ decimal
 	    >name dup ??? <>
 	THEN ;
 
+[THEN]
+[THEN]