--- gforth/engine/forth.h	2000/11/10 10:04:21	1.14
+++ gforth/engine/forth.h	2000/11/12 18:14:09	1.15
@@ -201,6 +201,9 @@ typedef Label *Xt;
 #define fpTOS (fp[0])
 #endif
 
+#define IF_rpTOS(x)
+#define rpTOS (rp[0])
+
 typedef struct {
   Address base;		/* base address of image (0 if relocatable) */
   UCell checksum;	/* checksum of ca's to protect against some