--- gforth/look.fs	2002/12/13 21:20:39	1.19
+++ gforth/look.fs	2003/01/02 21:40:22	1.21
@@ -42,16 +42,20 @@ decimal
     then ;
 
 : (look)  ( xt startlfa -- lfa flag )
-    swap decompile-prim false rot
+    swap
+    [IFDEF] decompile-prim
+    decompile-prim
+    [THEN]
+    >r false swap
     BEGIN
 	@ dup
     WHILE
 	    dup name>int xt>threaded
-	    3 pick = IF
+	    r@ = IF
 		nip dup
 	    THEN
     REPEAT
-    drop nip
+    drop rdrop
     dup 0<> ;