--- gforth/look.fs	2002/09/14 11:18:57	1.18
+++ gforth/look.fs	2002/12/21 17:27:13	1.20
@@ -42,7 +42,11 @@ decimal
     then ;
 
 : (look)  ( xt startlfa -- lfa flag )
-    false swap
+    swap
+    [IFDEF] decompile-prim
+    decompile-prim
+    [THEN]
+    false rot
     BEGIN
 	@ dup
     WHILE