References: bsc#1187532 - virt-make-fs hangs forever

Index: supermin-5.3.3/src/format_ext2_kernel.ml
===================================================================
--- supermin-5.3.3.orig/src/format_ext2_kernel.ml
+++ supermin-5.3.3/src/format_ext2_kernel.ml
@@ -155,7 +155,7 @@ and find_kernel_from_boot debug host_cpu
     if files <> [] then files
     else (
       (* In original: ls -1dvr /boot/vmlinuz-* 2>/dev/null | grep -v xen *)
-      let files = files_matching_globs ["vmlinu?-*"] all_files in
+      let files = files_matching_globs ["vmlinu?-*"; "Image-*"] all_files in
       let files = ignore_unbootable_kernels host_cpu files in
       files
     ) in
@@ -262,9 +262,14 @@ and get_kernel_version debug kernel_file
        else (
          basename
        ) in
-     if string_prefix "vmlinuz-" basename || string_prefix "vmlinux-" basename
+     if string_prefix "vmlinuz-" basename || string_prefix "vmlinux-" basename || string_prefix "Image-" basename
      then (
-       let version = String.sub basename 8 (String.length basename - 8) in
+       let version =
+         if string_prefix "Image-" basename then (
+           String.sub basename 6 (String.length basename - 6)
+         ) else (
+           String.sub basename 8 (String.length basename - 8)
+         ) in
        (* Does the version look reasonable? *)
        let modpath = "/lib/modules" // version in
        if has_modpath modpath then (