--- gforth/kernel/int.fs	2003/01/08 10:25:34	1.84
+++ gforth/kernel/int.fs	2003/01/08 10:45:39	1.85
@@ -442,6 +442,17 @@ has? standardthreading has? compiler and
 	drop 0
     endif ;
 
+' ! alias code-address! ( c_addr xt -- ) \ gforth
+\G Create a code field with code address @i{c-addr} at @i{xt}.
+
+: does-code! ( a_addr xt -- ) \ gforth
+\G Create a code field at @i{xt} for a child of a @code{DOES>}-word;
+\G @i{a-addr} is the start of the Forth code after @code{DOES>}.
+    dodoes: over ! cell+ ! ;
+
+2 cells constant /does-handler ( -- n ) \ gforth
+\G The size of a @code{DOES>}-handler (includes possible padding).
+
 [THEN]	
 
 : (search-wordlist)  ( addr count wid -- nt | false )