--- gforth/cross.fs	2010/04/18 13:04:09	1.171
+++ gforth/cross.fs	2010/05/12 20:13:33	1.173
@@ -2417,9 +2417,6 @@ T 2 cells H Value xt>body
 : (dodoes,) ( does-action-ghost -- )
   ]comp [G'] :dodoes addr, comp[
   addr,
-  \ the relocator in the c engine, does not like the
-  \ does-address to marked for relocation
-  [ T e? ec H 0= [IF] ] T here H tcell - reloff [ [THEN] ]
   2 fillcfa ;						' (dodoes,) plugin-of dodoes,
 
 : (dlit,) ( n -- ) compile lit td, ;			' (dlit,) plugin-of dlit,
@@ -2954,6 +2951,10 @@ Builder (ABI-CODE)
 Build: ;Build
 by: :doabicode noop ;DO
 
+BUILDER (;abi-code)
+Build: ;Build
+by: :do;abicode noop ;DO
+
 \ Input-Methods                                            01py
 
 Builder input-method