--- gforth/except.fs	2000/09/23 15:46:55	1.3
+++ gforth/except.fs	2002/09/24 17:57:28	1.4
@@ -36,7 +36,7 @@ Defer store-backtrace
 : (try) ( -- )
     \ inline argument: address of the handler
     r>
-    dup dup @ + >r \ recovery address
+    dup @ >r \ recovery address
     rp@ 'catch >r
     sp@ >r
     fp@ >r