--- gforth/wf.fs	2006/08/26 12:39:57	1.47
+++ gforth/wf.fs	2006/10/08 11:30:56	1.48
@@ -331,7 +331,7 @@ s" Gforth" environment? [IF] s" 0.5.0" s
 [ELSE]
 : parse-string ( addr u -- )
     evaluate-input cell new-tib #tib ! tib !
-    ['] parse-line catch pop-file throw ;
+    ['] parse-line catch pop-file rethrow ;
 [THEN] [THEN]
 
 Variable expand-link