--- gforth/kernel/input.fs	2005/10/02 11:30:34	1.11
+++ gforth/kernel/input.fs	2005/12/25 12:55:18	1.12
@@ -224,7 +224,7 @@ has? file [IF]
     \G Make the user input device the input source. Receive input into
     \G the Terminal Input Buffer. Set @code{>IN} to zero. OBSOLESCENT:
     \G superceeded by @code{accept}.
-    clear-tibstack  refill drop ;
+    clear-tibstack  refill 0= -39 and throw ;
 
 \ load a file