--- gforth/kernel/files.fs	2007/12/31 18:40:26	1.25
+++ gforth/kernel/files.fs	2012/12/31 15:25:19	1.28
@@ -1,6 +1,6 @@
 \ File specifiers                                       11jun93jaw
 
-\ Copyright (C) 1995,1996,1997,1998,2000,2003,2006 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1997,1998,2000,2003,2006,2007,2012 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -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