--- gforth/cross.fs	1995/11/29 20:20:34	1.31
+++ gforth/cross.fs	1995/11/30 18:01:47	1.32
@@ -694,6 +694,10 @@ Build: T 0 , H ;
 by Constant
 Builder Value
 
+Build: T 0 A, H ;
+by Constant
+Builder AValue
+
 Build:  ( -- ) compile noop ;
 DO: ( ghost -- ) ABORT" CROSS: Don't execute" ;DO
 Builder Defer