diff --git a/src/Cluster.hs b/src/Cluster.hs
index 4ce884cf792857b15a9d6091513493e9fc505a08..c45f9b93cca7c32ff92297b80f37815ec9bc0e11 100644
--- a/src/Cluster.hs
+++ b/src/Cluster.hs
@@ -598,8 +598,8 @@ fixNodes nl il =
                    assocEqual = (\ (i, _) (j, _) -> i == j)
                    pdx = Instance.pnode inst
                    sdx = Instance.snode inst
-                   pold = fromJust $ lookup pdx nl
-                   sold = fromJust $ lookup sdx nl
+                   pold = fromJust $ lookup pdx accu
+                   sold = fromJust $ lookup sdx accu
                    pnew = Node.setPri pold idx
                    snew = Node.setSec sold idx
                    ac1 = deleteBy assocEqual (pdx, pold) accu