--- gforth/kernel/int.fs	2006/01/29 18:34:34	1.126
+++ gforth/kernel/int.fs	2006/01/31 15:39:27	1.127
@@ -1030,6 +1030,7 @@ has? new-input 0= [IF]
     current-input off
 [ [THEN] ]
     clear-tibstack
+    0 0 includefilename 2!
     rp@ rp0 !
 [ has? floating [IF] ]
     fp@ fp0 !