--- a/src/pt-except.cc
+++ b/src/pt-except.cc
@@ -135,14 +135,16 @@
 }
 
 tree_command *
-tree_try_catch_command::dup (symbol_table::scope_id scope)
+tree_try_catch_command::dup (symbol_table::scope_id scope,
+			     symbol_table::context_id context)
 {
-  return new tree_try_catch_command (try_code ? try_code->dup (scope) : 0,
-				     catch_code ? catch_code->dup (scope) : 0,
-				     lead_comm ? lead_comm->dup () : 0,
-				     mid_comm ? mid_comm->dup () : 0,
-				     trail_comm ? trail_comm->dup () : 0,
-				     line (), column ());
+  return new
+    tree_try_catch_command (try_code ? try_code->dup (scope, context) : 0,
+			    catch_code ? catch_code->dup (scope, context) : 0,
+			    lead_comm ? lead_comm->dup () : 0,
+			    mid_comm ? mid_comm->dup () : 0,
+			    trail_comm ? trail_comm->dup () : 0,
+			    line (), column ());
 }
 
 void
@@ -251,11 +253,12 @@
 }
 
 tree_command *
-tree_unwind_protect_command::dup (symbol_table::scope_id scope)
+tree_unwind_protect_command::dup (symbol_table::scope_id scope,
+				  symbol_table::context_id context)
 {
   return new tree_unwind_protect_command
-    (unwind_protect_code ? unwind_protect_code->dup (scope) : 0,
-     cleanup_code ? cleanup_code->dup (scope) : 0,
+    (unwind_protect_code ? unwind_protect_code->dup (scope, context) : 0,
+     cleanup_code ? cleanup_code->dup (scope, context) : 0,
      lead_comm ? lead_comm->dup () : 0,
      mid_comm ? mid_comm->dup () : 0,
      trail_comm ? trail_comm->dup () : 0,