--- gforth/engine/main.c	1999/03/20 09:20:32	1.25
+++ gforth/engine/main.c	1999/05/10 13:55:07	1.26
@@ -147,7 +147,7 @@ void relocate(Cell *image, const char *b
 	  image[i]+=(Cell)image;
       }
     }
-  ((ImageHeader*)(image))->base = image;
+  ((ImageHeader*)(image))->base = (Address) image;
 }
 
 UCell checksum(Label symbols[])
@@ -313,7 +313,7 @@ int go_forth(Address image, int stack, C
     if (rp <= rp0 && rp > (Cell *)(image_header->return_stack_base+5)) {
       /* no rstack overflow or underflow */
       rp0 = rp;
-      *--rp0 = ip;
+      *--rp0 = (int) ip;
     }
     else /* I love non-syntactic ifdefs :-) */
 #endif