example.4th

\ This example is straight from Starting Forth.

HERE 5 CELLS ALLOT BASE !
: limit ( index -- addr ) CELLS [ BASE @ ] LITERAL + ;
DECIMAL

\ Is there a way to avoid the first line (i.e. dumping the address into a 'scratch variable')?
\ My initial thinking was something like:

: limit ( index -- addr ) CELLS [ HERE 5 CELLS ALLOT ] LITERAL + ;

\ But this definitely does not produce what I want, as evidenced by this result:

SEE limit 

\ prints : limit 
\          cells <-7378697629483820647>  <-7378697629483820647>  <-7378697629483820647>  <-7378697629483820647>  <-3740130035007645287>  140405810139648 + ; ok

\ I'm not sure why I'm getting this behaviour. Could someone please explain what I'm missing?