--- gforth/engine/engine.c	2001/04/08 13:48:12	1.31
+++ gforth/engine/engine.c	2001/12/01 20:33:14	1.32
@@ -196,6 +196,7 @@ DCell timeval2us(struct timeval *tvp)
 
 #ifdef HAS_FILE
 static char* fileattr[6]={"rb","rb","r+b","r+b","wb","wb"};
+static char* pfileattr[6]={"r","r","r+","r+","w","w"};
 
 #ifndef O_BINARY
 #define O_BINARY 0