--- gforth/engine/forth.h	2007/07/07 21:46:05	1.84
+++ gforth/engine/forth.h	2007/08/21 10:33:52	1.85
@@ -349,6 +349,7 @@ Label *gforth_engine3(Xt *ip, Cell *sp,
 Address gforth_alloc(Cell size);
 char *cstr(Char *from, UCell size, int clear);
 char *tilde_cstr(Char *from, UCell size, int clear);
+Cell opencreate_file(char *s, Cell wfam, int flags, Cell *wiorp);
 DCell timeval2us(struct timeval *tvp);
 void cmove(Char *c_from, Char *c_to, UCell u);
 void cmove_up(Char *c_from, Char *c_to, UCell u);