+(* For libguestfs <= 1.24, we need an old supermin 4 binary. *)
+let supermin = function
+ | { major = 1; minor = i } when i <= 24 ->
+ let home = Sys.getenv "HOME" in
+ Some ( home // "d/supermin4/src/supermin",
+ home // "d/supermin4/helper/supermin-helper" )
+ | _ -> None
+