--- gforth/prim	2012/07/15 12:03:07	1.273
+++ gforth/prim	2012/07/23 14:15:51	1.275
@@ -1735,6 +1735,10 @@ FLUSH_ICACHE((caddr_t)c_addr,u);
 
 (bye)	( n -- )	gforth	paren_bye
 SUPER_END;
+gforth_FP=fp;
+gforth_SP=sp;
+gforth_RP=rp;
+gforth_LP=lp;
 return (Label *)n;
 
 (system)	( c_addr u -- wretval wior )	gforth	paren_system