diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 1d07713ad25..57fd23ccc04 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,10 @@
+2007-07-02  Steve Ellcey  <sje@cup.hp.com>
+	    Jim Wilson <wilson@specifix.com>
+
+	PR target/31684
+	* haifa-sched.c (add_to_speculative_block): Change copy_rtx to
+	copy_insn.
+
 2007-07-02  Sandra Loosemore  <sandra@codesourcery.com>
 	    Richard Sandiford  <richard@codesourcery.com>
 	    Nigel Stephens  <nigel@mips.com>
diff --git a/gcc/haifa-sched.c b/gcc/haifa-sched.c
index bf017e88495..809d93417df 100644
--- a/gcc/haifa-sched.c
+++ b/gcc/haifa-sched.c
@@ -3358,7 +3358,7 @@ add_to_speculative_block (rtx insn)
       
       rec = BLOCK_FOR_INSN (check);
       
-      twin = emit_insn_before (copy_rtx (PATTERN (insn)), BB_END (rec));
+      twin = emit_insn_before (copy_insn (PATTERN (insn)), BB_END (rec));
       extend_global (twin);
 
       copy_deps_list_change_con (INSN_RESOLVED_BACK_DEPS (twin),