--- gforth/except.fs	2010/09/01 16:52:12	1.23
+++ gforth/except.fs	2010/09/05 17:58:41	1.24
@@ -168,7 +168,7 @@ Variable first-throw
     then endtry ;
 is catch
 
-[undefined] (throw1)
+[undefined] (throw1) [if]
 : (throw1) ( ... ball frame -- ... ball )
     dup rp! ( ... ball frame )
     cell+ dup @ lp!