--- gforth/cross.fs	2010/04/18 06:18:36	1.170
+++ gforth/cross.fs	2010/04/25 18:27:09	1.172
@@ -2412,7 +2412,7 @@ T 2 cells H Value xt>body
   there xt>body + ca>native T a, H 1 fillcfa ;		' (doprim,) plugin-of doprim,
 
 : (doeshandler,) ( -- ) 
-    T cfalign H ; 					' (doeshandler,) plugin-of doeshandler,
+    T H ; 					' (doeshandler,) plugin-of doeshandler,
 
 : (dodoes,) ( does-action-ghost -- )
   ]comp [G'] :dodoes addr, comp[
@@ -2954,6 +2954,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