diff --git a/compiler/life.lisp b/compiler/life.lisp
index 761be8c61f217161cd09ca21e64f1cfae132c659..21ff5d37c1a6cf507ee33cd1ba3eb8aa4d3a5c2c 100644
--- a/compiler/life.lisp
+++ b/compiler/life.lisp
@@ -947,7 +947,7 @@
 		       (setf (global-conflicts-tn-next oprev) conf)
 		       (setf (tn-global-conflicts original) conf))
 		   (change-global-conflicts-tn conf original)
-		   (shiftf conf (global-conflicts-tn-next conf) oconf))
+		   (shiftf oprev conf (global-conflicts-tn-next conf) oconf))
 		  (t
 		   (merge-alias-block-conflicts conf oconf)
 		   (shiftf oprev oconf (global-conflicts-tn-next oconf))