diff --git a/compiler/life.lisp b/compiler/life.lisp
index ff3413990f00836f736e2d07e91781c375a9571f..97c838099f0888d7903276e630e8a93970aad10d 100644
--- a/compiler/life.lisp
+++ b/compiler/life.lisp
@@ -950,7 +950,7 @@
 		(setf (tn-global-conflicts original) conf))
 	    (do ((current conf (global-conflicts-tn-next current)))
 		((null current))
-	      (change-global-conflicts-tn conf original))
+	      (change-global-conflicts-tn current original))
 	    (return))
 	  (unless conf (return))))