--- gforth/kernel/files.fs	2003/01/22 10:59:54	1.21
+++ gforth/kernel/files.fs	2006/12/31 13:39:18	1.24
@@ -1,6 +1,6 @@
 \ File specifiers                                       11jun93jaw
 
-\ Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1997,1998,2000,2003,2006 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -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         !