--- gforth/prim	1999/05/20 13:38:02	1.35
+++ gforth/prim	1999/08/20 17:22:51	1.38
@@ -1682,7 +1682,7 @@ wior = FILEIO(putc(c, (FILE *)wfileid)==
 if (wior)
   clearerr((FILE *)wfileid);
 #else
-putc(c, stdout);
+PUTC(c);
 #endif
 
 \+file