--- gforth/cross.fs	2006/02/18 22:58:04	1.155
+++ gforth/cross.fs	2006/02/19 13:33:40	1.156
@@ -2881,7 +2881,7 @@ by (Value)
 [ELSE]
 Builder (Value)
 Build:  ( n -- ) ;Build
-by: :docon ( target-body-addr -- n ) T @ H ;DO
+by: :dovalue ( target-body-addr -- n ) T @ H ;DO
 
 Builder Value
 BuildSmart: T , H ;Build