--- gforth/xxxprim	2003/09/29 20:51:16	1.2
+++ gforth/xxxprim	2003/10/01 09:15:45	1.3
@@ -169,3 +169,5 @@ n = n1+n2;
 lit	( #w -- w )		gforth
 :
  r> dup @ swap cell+ >r ;
+
+over ( n1 n2 -- n1 n2 n1 )