--- gforth/kernel/files.fs	2007/12/31 19:02:25	1.26
+++ gforth/kernel/files.fs	2012/04/06 17:27:54	1.27
@@ -26,7 +26,7 @@
 
 \ BIN WRITE-LINE                                        11jun93jaw
 
-: write-line ( c-addr u fileid -- ior ) \ file
+: write-line ( c-addr u wfileid -- ior ) \ file
     dup >r write-file
     ?dup IF
 	r> drop EXIT