--- a/src/pt-arg-list.cc	Fri Jun 16 05:01:39 2006 +0000
+++ b/src/pt-arg-list.cc	Fri Jun 16 05:09:42 2006 +0000
@@ -253,6 +253,24 @@
   return retval;
 }
 
+tree_argument_list *
+tree_argument_list::dup (symbol_table *sym_tab)
+{
+  tree_argument_list *new_list = new tree_argument_list ();
+
+  new_list->list_includes_magic_end = list_includes_magic_end;
+  new_list->simple_assign_lhs = simple_assign_lhs;
+
+  for (iterator p = begin (); p != end (); p++)
+    {
+      tree_expression *elt = *p;
+
+      new_list->append (elt ? elt->dup (sym_tab) : 0);
+    }
+
+  return new_list;
+}
+
 void
 tree_argument_list::accept (tree_walker& tw)
 {