--- gforth/prim	1998/10/18 23:16:51	1.12
+++ gforth/prim	1998/11/08 23:08:04	1.14
@@ -1177,7 +1177,7 @@ c_addr2 = c_addr1+1;
  dup 1+ swap c@ ;
 
 (f83find)	c_addr u f83name1 -- f83name2	new	paren_f83find
-for (; f83name1 != NULL; f83name1 = f83name1->next)
+for (; f83name1 != NULL; f83name1 = (struct F83Name *)(f83name1->next))
   if ((UCell)F83NAME_COUNT(f83name1)==u &&
       memcasecmp(c_addr, f83name1->name, u)== 0 /* or inline? */)
     break;
@@ -1194,11 +1194,11 @@ f83name2=f83name1;
 \+has? hash [IF]
 
 (hashfind)	c_addr u a_addr -- f83name2	new	paren_hashfind
-F83Name *f83name1;
+struct F83Name *f83name1;
 f83name2=NULL;
 while(a_addr != NULL)
 {
-   f83name1=(F83Name *)(a_addr[1]);
+   f83name1=(struct F83Name *)(a_addr[1]);
    a_addr=(Cell *)(a_addr[0]);
    if ((UCell)F83NAME_COUNT(f83name1)==u &&
        memcasecmp(c_addr, f83name1->name, u)== 0 /* or inline? */)
@@ -1217,11 +1217,11 @@ while(a_addr != NULL)
 
 (tablefind)	c_addr u a_addr -- f83name2	new	paren_tablefind
 ""A case-sensitive variant of @code{(hashfind)}""
-F83Name *f83name1;
+struct F83Name *f83name1;
 f83name2=NULL;
 while(a_addr != NULL)
 {
-   f83name1=(F83Name *)(a_addr[1]);
+   f83name1=(struct F83Name *)(a_addr[1]);
    a_addr=(Cell *)(a_addr[0]);
    if ((UCell)F83NAME_COUNT(f83name1)==u &&
        memcmp(c_addr, f83name1->name, u)== 0 /* or inline? */)
@@ -1502,6 +1502,10 @@ wior = IOR(fclose((FILE *)wfileid)==EOF)
 
 open-file	c_addr u ntype -- w2 wior	file	open_file
 w2 = (Cell)fopen(tilde_cstr(c_addr, u, 1), fileattr[ntype]);
+#if defined(GO32) && defined(MSDOS)
+if(w2 && !(ntype & 1))
+  setbuf((FILE*)w2, NULL);
+#endif
 wior =  IOR(w2 == 0);
 
 create-file	c_addr u ntype -- w2 wior	file	create_file
@@ -1509,6 +1513,10 @@ Cell	fd;
 fd = open(tilde_cstr(c_addr, u, 1), O_CREAT|O_TRUNC|ufileattr[ntype], 0666);
 if (fd != -1) {
   w2 = (Cell)fdopen(fd, fileattr[ntype]);
+#if defined(GO32) && defined(MSDOS)
+  if(w2 && !(ntype & 1))
+    setbuf((FILE*)w2, NULL);
+#endif
   wior = IOR(w2 == 0);
 } else {
   w2 = 0;
@@ -1531,7 +1539,6 @@ reposition-file	ud wfileid -- wior	file
 wior = IOR(fseek((FILE *)wfileid, UD2LONG(ud), SEEK_SET)==-1);
 
 file-size	wfileid -- ud wior	file	file_size
-#include <sys/stat.h>
 struct stat buf;
 wior = IOR(fstat(fileno((FILE *)wfileid), &buf)==-1);
 ud = LONG2UD(buf.st_size);