--- gforth/kernel/files.fs	2000/09/06 20:30:07	1.10
+++ gforth/kernel/files.fs	2000/09/09 20:32:58	1.11
@@ -34,6 +34,9 @@
     THEN
     newline r> write-file ;
 
+: read-line ( c_addr u1 wfileid -- u2 flag wior )
+    (read-line) drop ;
+
 \ include-file                                         07apr93py
 
 : push-file  ( -- )  r>