--- gforth/kernel/int.fs	2006/03/04 22:45:08	1.141
+++ gforth/kernel/int.fs	2006/03/05 14:10:52	1.142
@@ -537,13 +537,18 @@ has? standardthreading has? compiler and
 	drop 0
     endif ;
 
-' ! alias code-address! ( c_addr xt -- ) \ gforth
+has? flash [IF] ' flash! [ELSE] ' ! [THEN]
+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+ ! ;
+    [ has? flash [IF] ]
+    dodoes: over flash! cell+ flash!
+    [ [ELSE] ]
+    dodoes: over ! cell+ !
+    [ [THEN] ] ;
 
 ' drop alias does-handler! ( a_addr -- ) \ gforth
 \G Create a @code{DOES>}-handler at address @i{a-addr}. Normally,