CA-40610: Fix lvhdrt/tc8713 vm cleanup path.

Signed-off-by: Daniel Stodden <daniel.stodden@citrix.com>

Author: Daniel Stodden

ocaml/lvhdrt/utils.ml

@@ -232,6 +232,8 @@ let with_sacrificial_vm rpc session f =
     Pervasiveext.finally 
       (fun () -> f vm')
       (fun () ->
+	 if Client.VM.get_power_state rpc session vm' <> `Halted then
+	   Client.VM.hard_shutdown rpc session vm';
 	 List.iter 
 	   (fun vbd ->
 	      let vdi = Client.VBD.get_VDI rpc session vbd in