6.1.1990
OVER
 
CORE
 
( x1 x2 -- x1 x2 x1 )

Place a copy of x1 on top of the stack.

Testing:
T{ 1 2 OVER -> 1 2 1 }T