--- gforth/kernel/files.fs	2003/03/09 15:17:05	1.22
+++ gforth/kernel/files.fs	2006/02/05 17:54:39	1.23
@@ -58,7 +58,7 @@ has? new-input 0= [IF]
 
 : pop-file   ( throw-code -- throw-code )
   dup IF
-         source >in @ sourceline# sourcefilename >error
+      input-error-data >error
   THEN
   r>
   r> >in         !