--- gforth/look.fs	2002/09/14 10:59:31	1.17
+++ gforth/look.fs	2002/12/21 17:27:13	1.20
@@ -35,15 +35,22 @@ decimal
 
 \ rename to discover!!!
 
+: xt>threaded ( xt -- x )
+\G produces the threaded-code cell for the primitive xt
+    threading-method 0= if
+	@
+    then ;
+
 : (look)  ( xt startlfa -- lfa flag )
-    false swap
+    swap
+    [IFDEF] decompile-prim
+    decompile-prim
+    [THEN]
+    false rot
     BEGIN
 	@ dup
     WHILE
-	    dup name>int
-	    threading-method 0= if
-		@
-	    then
+	    dup name>int xt>threaded
 	    3 pick = IF
 		nip dup
 	    THEN