--- gforth/ans-report.fs	2003/01/10 16:57:25	1.8
+++ gforth/ans-report.fs	2003/01/25 20:11:30	1.9
@@ -138,7 +138,7 @@ ans-report-words definitions
     \    >body ! ;
     dup @ docol: <> -12 and throw \ for colon defs only
     >body ['] branch xt>threaded over !
-    cell+ >r >body r@ - r> ! ;
+    cell+ >r >body r> ! ;
 
 forth definitions
 ans-report-words