--- gforth/look.fs	2002/12/21 17:27:13	1.20
+++ gforth/look.fs	2003/01/02 21:40:22	1.21
@@ -46,16 +46,16 @@ decimal
     [IFDEF] decompile-prim
     decompile-prim
     [THEN]
-    false rot
+    >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<> ;