--- gforth/kernel/input.fs	2006/05/26 21:18:45	1.18
+++ gforth/kernel/input.fs	2006/10/08 11:30:56	1.19
@@ -216,7 +216,7 @@ has? file [IF]
     2drop
 [ [THEN] ]
     -1 loadline ! #tib ! tib !
-    r> catch pop-file throw>error ;
+    r> catch pop-file rethrow ;
 
 : execute-parsing ( ... addr u xt -- ... ) \ gforth
 \G Make @i{addr u} the current input source, execute @i{xt @code{(
@@ -262,7 +262,7 @@ defer line-end-hook ( -- ) \ gforth
     loadfilename 2!  loadfile !
     r> catch
     loadfile @ close-file swap 2dup or
-    pop-file  drop throw>error throw ;
+    pop-file  drop rethrow throw ;
 
 : execute-parsing-file ( i*x fileid xt -- j*x ) \ gforth
 \G Make @i{fileid} the current input source, execute @i{xt @code{( i*x