--- gforth/engine/forth.h	2004/06/19 18:47:26	1.60
+++ gforth/engine/forth.h	2004/08/27 15:53:51	1.61
@@ -298,6 +298,7 @@ Float v_star(Float *f_addr1, Cell nstrid
 void faxpy(Float ra, Float *f_x, Cell nstridex, Float *f_y, Cell nstridey, UCell ucount);
 UCell lshift(UCell u1, UCell n);
 UCell rshift(UCell u1, UCell n);
+int gforth_system(Char *c_addr, UCell u);
 
 
 /* signal handler stuff */