--- gforth/wf.fs	2006/03/20 00:14:56	1.46
+++ gforth/wf.fs	2006/10/08 11:30:56	1.48
@@ -43,7 +43,7 @@ require string.fs
 	case
 	    '& of  ." &"  endof
 	    '< of  ." &lt;"   endof
-\	    '¤ of  ." &euro;" endof
+\	    &164 of  ." &euro;" endof
 	    dup emit
 	endcase
     LOOP ;
@@ -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