Add icon.

[guestfs-browser.git] / slave.ml

diff --git a/slave.ml b/slave.ml
index c12f9a3..f72a5aa 100644 (file)
--- a/slave.ml
+++ b/slave.ml
@@ -491,7 +491,7 @@ and open_disk_images images cb =
   ignore (
     g#set_event_callback (
       fun g event handle buf array ->
-        if event == G.EVENT_PROGRESS && Array.length array == 4 then (
+        if event == G.EVENT_PROGRESS && Array.length array >= 4 then (
           let proc_nr = array.(0)
           and serial = array.(1)
           and position = array.(2)