diff --git a/htools/Ganeti/HTools/Cluster.hs b/htools/Ganeti/HTools/Cluster.hs
index 0aea8459c2f55d9e256ae22766c5048bd477a462..09509f76227b58b5e5d4f75d268efc81699ee598 100644
--- a/htools/Ganeti/HTools/Cluster.hs
+++ b/htools/Ganeti/HTools/Cluster.hs
@@ -1453,8 +1453,9 @@ iMoveToJob nl il idx move =
                       Bad msg -> error $ "Empty node name for idx " ++
                                  show n ++ ": " ++ msg ++ "??"
                       Ok ne -> Just ne
-      opF = OpCodes.OpInstanceMigrate iname True False True Nothing
-      opFA n = OpCodes.OpInstanceMigrate iname True False True (lookNode n)
+      live = Just True
+      opF = OpCodes.OpInstanceMigrate iname live False True Nothing
+      opFA n = OpCodes.OpInstanceMigrate iname live False True (lookNode n)
       opR n = OpCodes.OpInstanceReplaceDisks iname (lookNode n)
               OpCodes.ReplaceNewSecondary [] Nothing
   in case move of
diff --git a/htools/Ganeti/OpCodes.hs b/htools/Ganeti/OpCodes.hs
index 5b52a38020a72acf2f55f7093835ab74d47d5a13..30f2c7ee0ad0beb337e09041f36598fe9a690ca8 100644
--- a/htools/Ganeti/OpCodes.hs
+++ b/htools/Ganeti/OpCodes.hs
@@ -70,7 +70,7 @@ $(genOpCode "OpCode"
      ])
   , ("OpInstanceMigrate",
      [ pInstanceName
-     , simpleField "live"           [t| Bool   |]
+     , pMigrationLive
      , pMigrationCleanup
      , pAllowFailover
      , pMigrationTargetNode