--- gforth/kernel/getdoers.fs	2007/12/31 19:02:25	1.16
+++ gforth/kernel/getdoers.fs	2010/04/05 22:17:56	1.17
@@ -66,3 +66,11 @@ true [IF] \ !! don't know what to put he
     \G The code address of a @code{field}???
     ['] DOES> >code-address ;
 [THEN]
+
+
+doer? :doabicode [IF]
+(ABI-CODE) (abi-code-dummy)
+: doabicode: ( -- addr )	\ gforth
+    \G The code address of a @code{ABI-CODE} definition.
+    ['] (abi-code-dummy) >code-address ;
+[THEN]