X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=slave.ml;h=f72a5aa159b99824842ba419bc1db53831f9c977;hb=refs%2Ftags%2F0.1.7;hp=c12f9a33fc46965cf1549d50736082df19d1213d;hpb=3b2348f5f4b770e3e7f886d851eeadc59bbd2357;p=guestfs-browser.git

diff --git a/slave.ml b/slave.ml
index c12f9a3..f72a5aa 100644
--- 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)