--- gforth/ans-report.fs	2002/03/22 18:40:00	1.7
+++ gforth/ans-report.fs	2003/01/10 16:57:25	1.8
@@ -137,7 +137,7 @@ ans-report-words definitions
     \    dodefer: over code-address!
     \    >body ! ;
     dup @ docol: <> -12 and throw \ for colon defs only
-    >body ['] branch compile-prim over !
+    >body ['] branch xt>threaded over !
     cell+ >r >body r@ - r> ! ;
 
 forth definitions